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Editorial 




Frauen und Computer 

Modethemen zeugen oft vom schlechten Gewis- 
sen derer, die darüber reden. »Frauen und Com- 
puter« ist in der letzten Zeit so ein Modethema, 

Wenn wir heute dieses Thema in Form einer Um- 
frage (auf Seite 142) dennoch aufgreifen, dann 
nicht aus schlechtem Gewissen heraus, sondern, 
um endlich auch jenen Frauen und Mädchen eine 
aktive Stellungnahme zu ermöglichen, die von 
Computertechnik (noch) nichts verstehen und kei- 
ne Computer-Zeitschriften lesen. Zusammen mit 
einer großen Frauenzeitschrift führen wir eine Be- 
fragung darüber durch, welchen Einfluß Compu- 
ter auf Freundschaften, Partnerschaften und ähnli- 
che Beziehungen haben. Wir hoffen, damit zu er- 
fahren, wie sich Computer auf jene auswirken, die 
auf dem Umweg über ihnen nahestehende Men- 
schen von der Computertechnik betroffen wer- 
den, ohne sich selbst jemals für den Computer ent- 
schieden zu haben. 

Und wir hoffen, daß sich der Computer als jenes 
faszinierende Stück Zukunft erweist, das unser Le- 
ben zwar mit neuem Wissen und dem Bewußtsein 
bereichert, auf Knopfdruck ganze mathematische 
Universen durchstreifen zu können, aber die kost- 
barste und schönste Seite des Lebens nicht zer- 
stört — die Beziehung zu jenen Mitmenschen, de- 
nen wir — und Sie uns — etwas bedeuten. 

Heißt das, daß wir unser Hobby eventuell ein- 
schränken müssen? Im Gegenteil. Beziehen wir 
unsere Partner doch in dieses Hobby mit ein! 
Könnte es sein, daß wir unseren Partnern die 
Technik vielleicht mit etwas weniger Arroganz 
und etwas mehr Geduld erklären müssen? 

Was wir mit unserem Magazin dazu beitragen 
können, wollen wir tun. Als ersten Schritt sollten 
Sie diese Ausgabe auch Ihrer Partnerin zum Lesen 
geben. Denn zu zweit ist Computern am schönsten! 

Ihr 





CPC für Ein- und Aufsteiger 

Grundlagen unterschiedlichster 
Art bilden den Schwerpunkt der ach- 
ten Schneider-Sonderausgabe. So er- 
werben Computer-Neulinge grund- 
legende Kenntnisse, Fortgeschrittene 
erweitern ihr Wissen. Zu den Themen 
gehören Speicherverfahren, Kopier- 
schutz, Grafik-Programmierung, Tips 
zum optimalen Basic-Einsatz und eine 
Basic-Referenzkarte mit dem kom- 
pletten Befehlssatz. 
Schnuppern Sie gerne mal durch die verschiedenen 
Programmiersprachen? Wir bieten Ihnen einen um- 
fangreichen Vergleich der interessantesten Sprachen, 
zu denen Interpreter beziehungsweise Compiler für 
CPCs erhältlich sind. 

Neben verblüffenden Tips und Tricks finden Sie na- 
türlich wie immer faszinierende Spiele- und praktische 
Anwendungs-Listings. Das Sonderheft 18 erscheint En- 
de Juni am Kiosk. 



Große Monitor-Parade 

Monitore bekennen Farbe in der 
neuesten Ausgabe des 68000er-Ma- 
gazins. Sie erfahren zum Beispiel wor- 
auf Sie achten müssen, wenn Sie ei- 
nen neuen Bildschirm für Ihren Atari 
ST oder Amiga kaufen wollen oder 
wohin die Entwicklung der Monitore 
in Zukunft gehen wird. Eines ist dabei 
sicher: Farbe ist angesagt. Eine große 
Übersicht rundet den Schwerpunkt 
ab und hilft Ihnen bei der Entschei- 
dung. Welche bekannten Software-Pakete vom Amiga 
1000 laufen auch auf dem neuen 500er? Eine Frage, die 
für viele Anwender kaufentscheidend ist. Wir sagen Ih- 
nen genau, was der kleine Amiga-Bruder ohne Murren 
schluckt und wogegen er sich auflehnt. Für Rechen- 
künstler: Wir haben die besten Kalkulationsprogramme 
für Amiga, Atari ST und QL auf Herz und Nieren ge- 
testet. Die Ausgabe 7 der 68000er erscheint am 19Juni. 




Alles für Einsteiger 



Michael Lang, Chefredakteur 



Computern ist die einfachste Sache 
der Welt! Mit einem umfangreichen 

Kgi°\Wm I Basic-Kurs treten wir den Beweis die- 
2^,1^1 ser Behauptung an. In diesem Kurs 
mr^L kann jeder Einsteiger lernen , wie ein- 
^r^^jj fach das Basic des C 64 zu beherr- 
schen ist. 

Ein weiteres heißes Einsteiger- 
Thema packen wir mit einem Beitrag 
über die Fehler von Diskettenlauf- 
werk und Datasette an. Was tut man, 
wenn die Datenübertragung ins Stocken gerät? Wir zei- 
gen Ihnen, wie man Fehlermeldungen dieser Art analy- 
siert. Was brauchen Einsteiger noch? Natürlich nütz- 
liche Anwendungs-Programme sowie Tips und Tricks, 
die den Umgang und die Arbeit mit dem Computer er- 
leichtern. Und damit Sie sich zwischendurch auch mal 
entspannen können, warten noch Super-Spiele zum Ab- 
tippen auf Sie. Das 64'er-Sonderheft 19 liegt ab Ende Juni 
am Kiosk. 
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etlef Johannsen begann 
1 1983 die Computerei mit 
einem Colour Genie (32 
KByte) und einem Kassettenre- 
corder. Bald suchte er ein Gerät 
mit umfangreicheren grafischen 
Fähigkeiten. Dabei zog er zu- 
nächst den VC 20 in Erwägung, 
entschied sich dann aber auf- 



iJLsiB 

IHüN 






grund des günstigeren Preis-Lei- 
stungsverhältnisses für den Atari 
800 XL. 

»Jump« entstand in der Leer- 
laufphase zwischen Abitur und 
Zivildienst. Für das Spiel benötig- 
te Detlef nur zwei Monate, wobei 
er während des Programmierens 
ganz nebenbei noch 6502-Ma- 




Links: Detlef 
Johannsen, der 
Programmierer 
von »Jump«, 
dem Listing des 
Monats im Juli. 
Rechts: 
Das Spiel. 
Mal sehen, wie 
lange Sie brau- 
chen, um an 
diese Stelle zu 
gelangen. 



.'^.MiilSli-i 



E mm 



schinensprache lernte. 

Das Honorar zum Listing des 
Monats will er in einen Amiga in- 
vestieren, womit die Fangemein- 
de dieses Computers einen groß- 
artigen Programmierer dazuge- 
wonnen hat. 

(Detlef Johannsen/hf) 



Sie sind uns 
3000 Mark wert 



... wenn Ihr Listing das beste 
ist, das uns in diesem Monat er- 
reicht! 

Diese Prämie für hervorra- 
gende Programmierleistungen 
vergeben wir jeden Monat, um 
damit talentierte Hobby-Pro- 
grammierer zu fördern. 

Zusätzlich zum Geldpreis er- 
halten Sie die Chance, sich 
selbst und Ihre Programmierlei- 
stung unseren Lesern an 
herausragender Stelle zu prä- 
sentieren. Dies kann ein wichti- 
ger Schritt auf dem Weg zu ei- 
ner beruflichen Karriere in der 
Computer-Branche sein. Mit Si- 
cherheit ernten Sie aber mit die- 
ser Auszeichnung die Anerken- 
nung der Szene. 

Voraussetzung für die Teil- 
nahme ist, daß wir Ihr Listing 
veröffentlichen können. Dazu 
muß uns Ihr Listing exklusiv zur 
Verfügung stehen und noch 
nicht veröffentlicht sein. Für die 



Bewertung sind vor allem die 
Originalität der Programmidee, 
die Eleganz der programmtech- 
nischen Ausführung und die Be- 
dienerfreundlichkeit entschei- 
dend. 

Neben dem Sourcecode sind 
eine ausführliche Beschreibung 
und Anleitung sowie das lauffä- 
hige Programm auf Datenträger 
nötig. Bitte geben Sie auf den 
Begleitmaterialien jeweils Ihren 
Namen, Ihre Adresse und den 
Computertyp an. Senden Sie Ih- 
ren Beitrag an: 

Redaktion Happy-Computer 
Markt & Technik Verlag AG 
Hans-Pinsel-Straße 2 
8013 Haar bei München 

Alle eingesandten Listings ha- 
ben darüber hinaus natürlich 
die Chance, gegen Honorar ver- 
öffentlicht zu werden. Die Ent- 
scheidung über den Titel »Li- 



sting des Monats« trifft die Re- 
daktion. Der Rechtsweg ist aus- 
geschlossen. 



34 



Ausgabe 7/Juli 1987 



Spiele-Listing Commodore 

Rekordverdächtig kurz: 

»Tron« 



Zu zweit gegeneinander spielen, das macht 
vielen Spielefreaks sicher am meisten Spaß. 
Läßt sich ein Spiel dann auch noch so schnell 
abtippen, wie das nur 958 Byte lange »Moto- 
crash«, eine Adaption des bekannten Tron, so 
steht dem Spielvergnügen nichts mehr im 
Wege. 

Bei Motocrash handelt es sich um ein rasantes 
Spiel für zwei Personen mit zwei Joysticks, Ziel ist 
es, mit seinem Gefährt weder mit dem Bild- 
schirmrand noch mit seiner eigenen Fahrspur oder der 
des Gegners zu kollidieren. Gleichzeitig sollte man ver- 
suchen, dem Gegner den Weg abzuschneiden, um ihn 
zu einem Crash zu zwingen. Zusätzlich kann man noch 
durch Drücken des Feuerknopfes seine eigene Ge- 
schwindigkeit und damit aber auch das Risiko verdop- 
peln. Sieger ist derjenige, dessen Gegner zuerst neun- 
mal kollidierte. 

Gestartet wird jede Spielrunde durch gleichzeitiges 
Drücken der Feuerknöpfe beider Joysticks. Als zusätzli- 
ches Spielelement läßt sich die Geschwindigkeit der 
Fahrzeuge mit der < RUN/STOP >- (langsamer) bezie- 
hungsweise < Commodore > -Taste (schneller) in meh- 
reren Stufen einstellen. Dies kann auch während des 
Spieles geschehen, was beim Gegenspieler für einige 



Verwirrung sorgt. Das linke gelbe Fahrzeug gehört übri- 
gens zum Controlport 2, das rechte blaue zum Port 1! 

Das Programm muß mit dem MSE eingegeben wer- 
den und ist dank seiner Kürze (es ist tatsächlich nur 958 
Byte lang), auch sehr schnell abzutippen. Nach dem Ab- 
tippen sollte man es aber erst speichern, damit man es 
später jederzeit wieder laden kann. 

(Peter Arndt/Ulrich Völker/wo) 



958 Byte geben den Ton an 

Listings, wie unser Motocrash, erhalten wir in der 
Redaktion leider viel zu selten. Ein derartig tolles Pro- 
gramm, das viele Spielprogramme, die man im La- 
den kaufen kann, in den Schatten stellt, würden wir 
gerne öfter bieten. Dazu brauchen wir aber Hilfe. 
Kurze, aber peppige Spiele-Listings mit bis zu 12 
Blocks sind gesucht! (wo) 



Steckbrief 



Programm: 


Motocrash 


Computer: 


C 64, C 128 


Checksummer: 


MSE 


Datenträger: 


Diskette, Datasette 



Name : motocrash 0801 Obbf 
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Kürzer geht es nicht mehr: »Motocrash« 
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Commodore Tips & Tricks 



Packen Sie selbst! 



Mit dem Happy-Packer sparen Sie Arbeit 
beim Abtippen und viel Platz auf Ihren Dis- 
ketten. 

Sicher haben Sie schon von Packern oder Kom- 
pressoren gehört, die in der Lage sind, Program- 
me zu kürzen, ohne deren eigentlichen Inhalt zu 
verändern. Mit unserem Listing »Happy-Packer« geben 
wir Ihnen das Werkzeug in die Hand, mit dem wir in der 
Redaktion in Zukunft Listings bearbeiten, damit Sie we- 
niger Abtipparbeit haben. 

Die Leistungsfähigkeit des Programms erzwingt eini- 
ge Besonderheiten, die Sie unbedingt beachten müs- 
sen. Damit das Programm in der Lage ist, fast den ge- 
samten Speicher des C 64 zu bearbeiten, kann es nur 
auf EPROM oder schreibgeschütztem CMOS-RAM ein- 
wandfrei arbeiten. Das vorliegende Listing ist mit sich 
selbst gepackt, damit Sie beim Eingeben weniger Ar- 
beit haben. Sie können es nach dem Abtippen mit dem 
MSE nicht sofort auf EPROM brennen, sondern müssen 
es erst speichern und mit RUN starten. Der Happy- 
Packer liegt dann entpackt im Bereich $8000 bis $A000. 
Sicherheitshalber sollte er danach mit einem Maschi- 
nensprache-Monitor auf Diskette gespeichert werden. 

Der Vorkompressor hat darüber hinaus eine Link- 
funktion. Das heißt in diesem Fall, daß der Packer bis zu 
16 einzelne Programm-Teile zu einem einzigen Pro- 
gramm zusammenfassen kann. Die einzelnen Teile dür- 
fen im Bereich $0300 bis $FFFF liegen. Die Gesamtlän- 
ge des Programms darf jedoch nicht größer als 64766 
Byte sein. Voraussetzung zum Linken von Programmtei- 
len ist aber, daß sich die Teile im Speicher nicht über- 
lappen. Der Happy-Packer verwendet übrigens einen 
eigenen Schnellader, der die Diskettenzugriffe wesent- 
lich verkürzt. 
Kurzanleitung: 

Nach einem Reset erscheint bei aktiviertem EPROM 
ein Menü, bei dem Sie aus fünf Menüpunkten mit den 
Cursortasten wählen können (siehe Bild). Die ersten 
drei sind die Kompressoren. Die anderen beiden die- 
nen zum Anzeigen des Directorys und zum Verlassen 
des Packers. Im einzelnen verbirgt sich folgendes hinter 
den Menüpunkten: 
V — Vorkompressor: 

Zuerst erfolgt die Auswahl der zu packenden bezie- 
hungsweise zu linkenden Programmteile aus dem Di- 
rectory. Drücken Sie <Y> für »nehmen« oder <N> für 
»nicht nehmen« des angezeigten Programms. <RUN/ 
STOP> beendet die Auswahl. Sie dürfen maximal 16 
Programme verwenden, wobei das zuletzt gewählte zu- 
erst geladen wird. Dann müssen Sie noch den Namen 
des Programmes eingeben, unter dem das bearbeitete 
Programm gespeichert werden soll. Zum Schluß ver- 
langt das Programm noch eine Typ-Eingabe (a, b oder 
c). Die Kompressor-Typen haben folgende Besonder- 
heiten: 
Typa: 

Er verarbeitet Programme, die kein Basic enthalten 
und nicht auf die Speicherstellen $2D/$2E (dezimal 
45/46) angewiesen sind. Das ist zum Beispiel bei Pro- 
grammen der Fall, die im $C000-Bereich liegen. 
Typb: 

Dieser Kompressor arbeitet auch mit Programmen zu- 
sammen, die alle Basic-Zeiger in der Zeropage brau- 




So meldet sich der Happy-Packer nach dem Einschalten 

chen, um korrekt zu funktionieren. Beim Entpacken wer- 
den Anfangs- und Endadresse automatisch richtig ge- 
setzt. 
Typ c: 

Die Programme werden genauso behandelt wie bei 
Typ b), nur wird das Programm nach dem Entpacken 
automatisch mit <RUN> gestartet, auch wenn es ein 
Maschinenprogramm ist! 

Beim Packen von Programmen müssen Sie einige 
Punkte beachten. 

1. Einen eventuell vorhandenen Programm-Lader dür- 
fen Sie nicht mitpacken. Der Lader sollte als erstes den 
zweiten Programmteil entpacken. 

2. Wenn Basic-Programme und Maschinenroutinen zu 
einem Stück zusammengepackt werden, sollten nicht 
immer Typ b) oder c) genommen werden, wie man viel- 
leicht annehmen könnte. 

Dazu ein Beispiel: 

Man möchte ein Basic-Programm mit Maschinenrouti- 
nen, die ab $C000 liegen, zusammenpacken. Da bei Typ 
b) oder c) die Endadresse nach dem Entpacken schein- 
bar größer als $9FFF ist, würde man beim Starten des 
Basic-Programms einen »OUT OF MEMORY ERROR« 
erhalten, da gemäß dem Zeiger $2D/$2E kein Platz für 
Basic-Variablen im Speicher vorhanden ist. Diesem Pro- 
blem kann man aber begegnen. Man muß allerdings 
die Endadresse des nicht gepackten Basic-Program- 
mes wissen, die in der Adresse 45/46 ($2D/$2E)) steht. 
Wenn man die beiden Werte mit PEEK ausliest, kann 
man sie beim Starten des Programms wieder in die Zei- 
ger hineinschreiben. 

1 POKE 45, (ausgelesener Wert) : Poke 46 
(ausgelesener Wert): CLR 

Aber Vorsicht! Durch die hinzugefügten Befehle än- 
dern sich natürlich die Inhalte der Adressen 45 und 46 
und damit auch die Werte, die dann korrigiert werden 
müssen. Am besten übernehmen Sie die Zeile mit zwei 
beliebigen dreistelligen Zahlen, bevor Sie die Zeiger 
auslesen. Die Werte, die Sie erhalten, können Sie dann 
beruhigt einsetzen und das Programm speichern. Sie 
dürfen danach aber keine weiteren Änderungen mehr 
vornehmen, sonst verschiebt sich die Endadresse. 

Die beschriebenen Probleme treten aber nur auf, 
wenn die Maschinenroutinen hinter dem Basic-Teil lie- 
gen, sonst sind die Werte für $2D/$2E bei Vorkompres- 
sortyp b) und c) richtig. 
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Tips&Tricks Commodore 



Beim Vorkompressor Typ a) oder b) kann man noch ei- 
niges einstellen. Das Programm fragt als nächstes nach 
dem Inhalt der Speicherstelle $0001 (Prozessorport). 
Hier läßt sich die Speicherkonfiguration nach dem Ent- 
packen einstellen. Normalerweise steht der Wert 55 
($37) in der Speicherstelle. Je nachdem, welche Bits ge- 
setzt sind, werden Speicherbereiche ein- oder ausge- 
blendet, zum Beispiel der Basic-Interpreter oder der 
I/O-Bereich mit VIC und SID. 

52 ($34): 64 KByte RAM, kein Basic, I/O-Bereich oder 
Betriebssystem 

53 ($35): Kein Basic oder Betriebssystem, aber I/O- 
Bereich eingeschaltet 

54 ($36): Kein Basic, aber I/O-Bereich und Betriebssy- 
stem 

55 ($37): Basic, I/O-Bereich und Betriebsysstem ein- 
geschaltet 

Gibt man ein » + « hinter dieser Eingabe ein (zum Bei- 
spiel $35 + ), wird das Programm mit einem gesetzten 
Interrupt-Flag angesprungen und eventuell ein Byte 
eingespart. Wenn Sie statt eines Plus-Zeichens ein Mi- 
nus eingeben, wird ein CLI (Clear Interruptflag) er- 
zwungen. 

Die geforderte nächste Angabe ist die Einsprung- 
adresse. Gemeint ist damit die Startadresse des (Ma- 
schinen-) Programms, und zwar entweder dezimal oder 
durch vorangestelltes Dollarzeichen »$« hexadezimal. 
Also sind zum Beispiel 2061 oder $080D identische gülti- 
ge Eingaben. Voreinstellung ist 42100 ($A474), was nur 
ein Entpacken, nicht aber einen Programmstart zur Fol- 
ge hat. Bei dieser Einstellung liegt das gepackte Pro- 
gramm nach dem Entpacken wieder in der ursprüngli- 
chen Version vor. 

Der nächste Menüpunkt ist der Z — Zwischenkompres- 
sor 



Typ a: Im RAM arbeitender Packer. Das gepackte Pro- 
gramm ist ohne Nachbehandlung mit dem Nachkom- 
pressor (meist) nicht lauffähig, liefert aber normalerwei- 
se das beste Ergebnis. 

Typ b: Wie Typ a, nur erzielt er ein um ein paar Bytes 
schlechteres Ergebnis, dafür ist er etwas schneller und 
das Programm ist ohne Nachkompressor lauffähig. 
Typ c ist noch schneller. Wegen der umgekehrten Ar- 
beitsrichtung kann dieser Typ sogar bessere Ergebnis- 
se liefern als a), was aber relativ selten vorkommt. Das 
Programm wird direkt auf der Diskette bearbeitet. 
Hängt man ein » + « an die Eingabe (zum Beispiel »a + «), 
arbeitet der Packer zirka 5 Prozent schneller, da der 
Bildschirm ausgeschaltet wird. Allerdings verschwin- 
det die optische Kontrolle, denn normalerweise wird je- 
derzeit die Länge des bereits gepackten Programm- 
stücks in Byte und Diskettenblöcken angezeigt! 

Typ a) und b) arbeiten nur im Speicher. Sobald sie fer- 
tig sind, erscheint in der linken oberen Bildschirmecke 
ein Stern. Achten Sie darauf, daß das Diskettenlaufwerk 
eingeschaltet und eine Diskette eingelegt ist. Nach 
Drücken der < SPACE > -Taste, speichert der Packer 
das Programm. Tritt dabei ein Fehler auf, erscheint ein 
»-« statt des »*« und das Speichern kann beliebig oft wie- 
derholt werden, so daß kein Datenverlust auftritt. 

Der dritte Menüpunkt ist der N — Nachkompressor. 
Auswahl und Eingabe des neuen Programmnamens er- 
folgen wie bei den anderen Kompressoren. 

(Peter Arndt/Ulrich Völker/wo) 
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Obdl : 2d 33 B3 68 dl cO 14 72 de 
0bd9 : 28 50 52 dl 51 d6 aO a9 9a 
Obel : 37 3b 47 4f a4 a4 a7 cc 19 
0be9 : 10 la b4 65 65 25 10 6e 7d 
Obfl : 32 le lc 57 a3 70 fd 24 22 
0bf9 : 3d eb 13 28 ec cf dO d5 32 
OcOl : a2 a3 27 52 d2 dO dl cf 24 
0c09 ; 41 3a Oa f4 f3 34 la de Bf 
Ocll : 7-f de 33 eB d5 28 00 el 4c 
0cl9 : 26 f2 83 e3 Oa 31 40 47 cf 
0c21 : 95 32 88 a4 88 el 7d dO b5 
Oc29 : 9e 41 af 10 03 10 6e 42 45 
0c31 : 82 e3 8a c4 20 7e 2a 94 a8 
0c39 : 3c le 25 83 dB bb 91 14 18 
0c41 : 00 50 64 34 46 a5 c5 24 fa 
0c49 : 33 80 95 28 CO 2e 21 Ba 3e 
0c51 : a3 d2 63 62 40 4a 8b Ba lc 
0c59 : 48 B2 2c 06 c8 c5 51 CO 30 
Oc61 : ec 18 73 18 39 42 22 a2 ad 
0c69 : 44 64 11 BB 3a 32 26 Be 20 
0c71 : 86 c9 a4 68 20 8b 09 12 b9 
0c79 : Oc c5 c7 99 el 32 5B 89 bl 
OcBl : c2 22 02 c9 20 Ba 47 46 Oe 
0cB9 : 21 7a 45 46 51 e2 63 66 88 
0c91 : 08 95 95 96 ab 24 44 2f e7 
0c99 : f9 31 c2 24 26 26 al 45 05 
Ocal : 7f Of be 4f 56 89 61 fa 6f 
Oca9 : e6 eB 67 69 9B Oc dB 4f f6 
Ocbl : 9c 9e aO a8 cf 95 62 30 6d 
0cb9 : ad 3c al 94 65 2b 20 17 de 
Oed : 06 51 61 80 14 B6 d8 50 52 
0cc9 : 50 ff 7e e5 4a 38 lf Oa 6c 
Ocdl .- fB 43 21 7f 16 6d 94 fe cO 
0cd9 : e2 7f 9c f4 11 Ba 25 93 62 
Ocel : 3e ea 35 82 77 ec 5f 6S 5f 
0ce9 : Od ed f9 05 60 BS 06 cd Oa 
Ocfl : 7e f3 a6 7f ee 3f c3 ce 98 
0cf9 : 83 fd 54 9e dl f2 40 lf 58 
OdOl : cB bc d5 8f Bd 77 12 22 bO 
0d09 : ea cl Bc d7 29 de ff b9 ef 
Odll : lc el Ol 32 fe ac a2 16 bO 
0dl9 : ec 2c 6c aO 65 2d bB 45 78 
Od21 : 17 80 2b Od 04 5a 56 00 51 
0d29 : B6 le 63 67 bB e4 3a a7 6f 
0d31 : 97 e5 Be bl eB d2 3a 67 71 
0d39 : be bO Ob 05 5e c8 06 9c 30 
0d41 : a6 04 Id 14 le bd 37 30 cO 
0d49 : el 7b b7 e8 OB Bf de 65 36 
0d51 : 61 62 b6 6c 6e 25 e7 5e Bb 
0d59 : dl a3 99 56 99 f5 3a 4d fa 
0d61 : 73 aO 65 2d ba 10 fd 77 36 
0d69 : 9e e8 39 fl 40 9f 47 de e4 
0d71 : 6b fl 3d b4 Of 35 cb 71 67 
0d79 : 37 2e cb 61 B7 4f d7 97 6B 
OdBl : eb 9B 42 fb 50 7B f4 5e 22 
Od89 : lb le bd B7 e9 bb 33 28 ad 
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1099 : b6 6e 19 05 34 64 2f a3 dB 

lOal : 7B 96 Bc a5 e6 2B Ob 6e f5 

10a9 : ca bl 71 b3 e5 41 cf 64 Bf 

10b 1 : 46 41 4d 6c 6a Ob 65 83 14 

10b9 : bb 78 Oe af 67 5d a7 6a ff 
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Cover-Print 

am 
MPS 803 

Unser Listing »Cover Print« in der Mai-Ausga- 
be fand ein großes Leserecho. Doch leider ar- 
beitet das Programm nur auf dem Epson 
FX-80. Hier nun die Anpassung an die Com- 
modore-Drucker MPS 801/802/803. 

Bei fast allen Programmen, die mit einem Drucker 
zusammenarbeiten sollen, gibt es Probleme bei 
der Ansteuerung des angeschlossenen Druk- 
kers. Die Steuerzeichen des einen Druckers versteht 
der andere nicht und umgekehrt. 

Bei unserem Listing Cover-Print sind zum Glück nur 
sehr wenige Änderungen erforderlich, so daß eine An- 
passung sehr leicht fällt. Man braucht die Zeilen 500 bis 
530 nicht abtippen, muß aber dafür in den folgenden 
Zeilen kleine Änderungen vornehmen. 

Zu beachten ist noch, daß der Schalter, der an der 
Rückseite des Druckers angebracht ist, so eingestellt 
wird, daß ein geringerer Zeilenabstand erreicht wird. 

(Oliver Hejl/wo) 
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IF LEN(FT*(S2) )<5 THEN FT* (S2) =FT* (S2 






) +CHR* (32) : GOTO 1600 


<099> 


1640 


FOR I_=S1 TO B2:D1S(L)=" t25SPACE} " i NEX 






T L:V=S2:G0TO 1660 


<075> 


1650 


FOR L=S2-1 TD S 1 : D2* ( L) = " C25SF'ACE > " s N 






EXT L 


<111> 


1660 


FOR 1=0 TO 40: DD* ( I ) =D1* ( I ) +D2* ( I ) : NE 






XT I 


<003> 


1 690 


□PEN 1 ,4 


< 245 > 


1692 


OPEN 6,4,6 


<069> 


1693 


PRINT#6,CHR* (24) 


<031> 


1720 


FOR 1=0 TO 5: AO*=AO*+CHR* (32) : NEXT: AO 






*=A0*+" " 


<171> 


1730 


FOR 1=0 TO 55: AO*=AO*+CHR* (45) : NEXT: A 






0*=A0*+" " 


<008> 


1 740 


cnp T^pi Tn 69" Rn*--Rf~)*+CHR* (45** ■ NEXT: F; 






0*=R0*-+" " 


< 167 V 


1 750 


FOR 1=0 TO 69: RU*=RU*+CHR* (45) : NEXT: R 






U*=RU*+" " 


<023> 


1760 


FOR 1=0 TO 53:MM*==MM*+CHR*(EZ! : NEXT I 


<250> 


1770 


FDR 1=0 TO 5:LL*=LL*+CHR*(EZ) :NEXT I 


<02B> 


1775 


FOR 1=0 TO 1 : ML*=ML*+CHR* (32) s NEXT I 


<046> 


1780 


RL*=CHR* < 1 25 ) : RR*=CHR* ( 1 25 ) 


<010> 


1870 


IF V< = I THEN PRINTttl , " C75PACE } " +RR*+M 






M*+RL*:BOT0 1B90 


<071 > 


1880 


PRINTttl , " C7SPACEJ"+RR*+ML*(I)+DD*(I)+ 






ML* ( I ) +RL* 


<072> 


2430 


FOR 1=0 TO 49: DD*=DD*+CHR* (32) : NEXT I 


<204> 


2450 


IF LEN(NA*)<50 THEN NA*=NA*+CHR* (32) : 






SOTO 2450 


< 166> 


2460 


IF LEN(AD*><50 THEN AD*=AD*+CHR* (32) : 






GOTO 2460 


<034> 


2470 


IF LEN(O*)<50 THEN 0*=0*+CHR* (32) : GOT 






0 2470 


<035> 


2480 


IF LEN(TE*)<50 THEN TE*=TE*+CHR* (32) : 






GOTO 2480 


<037> 


2550 


A=INT(50/LEN(IP*) ) 


<236> 


2620 


DD* (I) =RI6HT* (DD* ( 1-1 ) , 1 ) +LEFT* (DD* ( I 






-1) ,49) 


<064> 



Tip zu Weltendämmerung 



Mit einem POKE haben Sie die Länge einer 
Partie bei »Weltendämmerung« voll im Griff. 

Weltendämmerung, unser Listing des Monats 
aus der Ausgabe 4/87, hat sehr viele Freun- 
de. Das komplexe Programm kann die Spie- 
ler viele Stunden lang vor den Computer bannen, um 
den Kampf zwischen den Dailor und den Eldoin auszu- 
fechten. Nur eines schmerzt einige Spieler: die Begren- 
zung auf nur 15 Züge. Die Angreifer haben kaum ein 
Chance sich richtig zu formieren, um reelle Aussichten 
auf den Sieg zu haben. Das kann den Spielspaß erheb- 
lich mindern. Wem es auch so geht, kann das ohne wei- 
teres ändern. Dazu gibt es zwei Wege. Der erste hebt 
die Zug-Begrenzung völlig auf, wodurch Sie unendlich 
viele Züge Zeit haben, den Endkampf auszutragen. Da- 



zu müssen Sie folgende zwei POKEs bei der entpackten 

Version eingeben: 

POKE 8871,234 : POKE 8872,234 

Diese Variante ist aber relativ reizlos. Man kann aber 
auch eine höhere Anzahl von Zügen einstellen. Dazu 
muß man nur 

POKE 8872, 21 + anzahl 

eingeben. Der Wert »anzahl« gibt an, wie viele Züge Sie 
mehr spielen wollen. Um die Partie um zehn Züge 
auf insgesamt 25 zu erhöhen, verwenden Sie also 
»POKE 8872, 31«. 

Übrigens: Wenn Sie nach dem löten Zug speichern, 
brauchen Sie die POKEs nicht mehr vorher eingeben. 
Das Spiel geht bei der gespeicherten Position weiter. 

(A. Doblinger/gn) 
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Commodore Tips & Tricks 



DATA-Zeilen nach Bedarf 



Sprites oder kleine Maschinen-Programme 
lassen sich mit unserem Listing »DÄTÄ-Ma- 
ker« sehr leicht in eigene Basic-Programme 
einbinden. 

Kaum ein Computer ist so beliebt wie der C 64, 
und das, obwohl man sich durch sein schlechtes 
Basic ständig mit DATA-Zeilen herumplagen 
muß. So erlaubt der C 64 den Einsatz von Sprites, guter 
Grafik und irren Sounds. Der Haken daran ist aber wie 
gesagt das miserable Basic, das leider zur Programmie- 
rung dieser Anwendungsgebiete nicht einen einzigen 
Befehl zur Verfügung stellt. Da hilft nur noch mühsames 
POKEn. Daten müssen irgendwie in den Sound- oder 
Grafik-Chip kommen. Ohne endlose DATA-Zeilen 
kommt man selten aus. 

Allein das Erzeugen von Sprites macht einen größe- 
ren Datenschwall notwendig. Mindestens 63 Byte muß 
man an den Grafik-Chip übergeben. 

Kleine Maschinen-Programme, die als PRG-File auf 
der Diskette stehen, bringen oft große Probleme mit 
sich, wenn es darum geht, diese in eigenen Basic-Pro- 
grammen zu verwenden. Man denke sich zum Beispiel 
eine der unzähligen Befehlserweiterungen, die für den 
C 64 existieren (siehe frühere Ausgaben der Happy- 
Computer), die man direkt in ein Basic-Programm ein- 
binden möchte. 

Um sich diese Arbeit zu vereinfachen, gibt es schon 
seit langem die sogenannten DATA-Zeilen-Generato- 
ren. Leider erhält man bei fast keinem dieser Generato- 
ren einen Einblick in seine Arbeitsweise. 

Unser Listing »Data-Maker« ist ein Basic-Programm 
und deshalb auch von Einsteigern zu analysieren. 

Eingegeben wird der DÄTA-Maker mit dem Check- 
summer und man sollte ihn sofort auf Diskette spei- 
chern. Nachdem man es gestartet hat, erzeugt es ein völ- 
lig neues Basic-Programm im Speicher, bestehend aus 
den DATA-Zeilen, die es erzeugt hat. 

Die Arbeitsweise des DATA-Makers ist schnell er- 
klärt: Nachdem man den Namen des zu übersetzenden 
Programms eingegeben hat, beginnt der DATA-Maker 
Byte für Byte aus dem Daten-File zu lesen. Jedes Byte 
wird umgewandelt in einen String, welcher den Wert 



des Bytes enthält. Aus mehreren dieser Strings wird, 
durch Komma getrennt und mit vorangestellter Zeilen- 
nummer und DATA-Befehl, eine Basic-Zeile erzeugt. 
Diese wird auf dem Bildschirm ausgegeben. Abschlie- 
ßend simuliert der DATA-Maker eine Eingabe, die mit 
< Return > abgeschlossen wird. Dadurch kommt die 
Basic-Zeile in den Eingabepuffer und der Basic-Inter- 
preter ordnet sie als Basic-Zeile ein. Es entsteht so nach 
und nach ein Basic-Programm. 

Einzige Arbeit, die noch bleibt, ist ein kleiner Pro- 
grammteil, der später die DATAs in die richtigen Stellen 
im C 64 POKEt. (Werner Balogh/wo) 



Steckbrief 




Programm: 


DATA-Maker 


Computer: 


C 64 


Checksummer: 


V3 


Datenträger: 


Diskette 



10 



20 



30 



I NPUT " tCLR }F I LENAME : ";FI*: INPUT" ZEILEN 
NUMER : ";Z:OPEN 2 ,8,2 ,FI*+" ,P,R" ! GET#2, 
C*,D* 

I=0:PRINT" {CLR>";Z; "DATA"; : REM ZEILENNU 
MMER & DATA 

1=1+1 : EET#2, A* : IF ST=64 THEN CLOSE 2: PO 
KE 53280, BsP=l: REM PRUEFEN OB ENDE 
40 A=0:IF A*<>""THEN A=ASC ( A*> : REM IN ASCI 

I UMWANDELN 
50 S=S+A: PRINT A" <LEFT>, " ; : IF P<>1 AND K 

12 THEN 30: REM PRUEFEN OB ZEILENENDE 
60 PR I NT " <2LEFT , 2SPACE > " : PR I NT " Z= " Z+ 1 " : S= " 
S" s P="P " s 0£2 ,8,2:IFP<>1 THEN20 " : PRINT" {2 
DOWN>6OTO80" 
70 POKE 631, 19: POKE 632,13:P0KE 633,13sP0K 

E 634, 13:P0KE 635,13:P0KE 198,5:END 
80 PRINT" {CLRJ " ; : FOR L=10 TO 90 STEP 10: PR 
INT L: NEXT: POKE 631, 19: FOR 1=1 TO 9:P0K 
E 631+1,13 

90 NEXT : PR I NT " PRUEFSUMME= " ; S : POKE 19B,10:E 
HD 

Mit sehr kurzem Programm zu großer Wirkung 



<122> 
<079> 
<132> 
<222> 
<135> 

<069> 
<103> 

<137> 
<224> 
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Anwendunqs-Listing Schneider 



Digitalisieren 
mit dem Drucker 



Eine kleine Schaltung verwandelt Euren 
Drucker in einen Scanner, der ein einge- 
spanntes Bild Punkt für Punkt abtastet und die 
gemessenen Grauwerte an den Computer 
übergibt. Mit der entsprechenden Software 
können Sie aus den Grauwerten Bilder erzeu- 
gen und bearbeiten. Hier ist das Listing zur 
Schaltung in der letzten Ausgabe. 

In der letzten Happy-Computer haben wir die Anlei- 
tung zum Selbstbau eines Scanners veröffentlicht, 
der mit Hilfe eines Druckers Bildvorlagen digitali- 
siert und über den Joystickport des Schneider CPC an 
den Computer übergibt. In diesem Heft folgt nun — wie 
versprochen — die Software, die Abgleich, Anpassung 
und den Betrieb des Scanners sowie die Bearbeitung 
von digitalisierten Bildern unterstützt. 

Die Software für den Scanner besteht aus den zwei 
Basic-Programmen »Scanner« und »Subscan« sowie den 
Maschinencode-Routinen »scan.bin« für das Programm 
Sanner und »bild.bin« für Subscan. 

Das Basic-Programm Scanner in Listing 1 stellt das 
Hauptprogramm der Scanner-Software dar. Hier wer- 
den im Hauptmenü vier Funktionen angeboten. 

Der erste Menüpunkt ruft ein Unterprogramm auf, mit 
dem das Programm an die Scanner-Schaltung angepaßt 
werden kann. Mit »Modus« wird der gewünschte Grafik- 
modus eingestellt und mit »Linker Rand« die X-Position, 
ab der der Scanner das Bild zu digitalisieren beginnt, 
festgelegt. Je größer der Wert für die X-Position ist, de- 
sto weiter rechts beginnt das Abtasten des Bildes. 

Um eine gute Kopie der Vorlage zu erhalten, muß der 
Sensor immer an der gleichen X-Position mit dem Abta- 
sten beginnen. Deshalb wird der Druckkopf in regelmä- 
ßigen Abständen in Bewegung gesetzt. Die Zeit, die zwi- 
schen dem Scannen zweier Zeilen vergeht, wird mit 
»Speed« eingestellt. Die Zeit, die zwischen dem. Abta- 
sten zweier Punkte vergeht, läßt sich über den Punkt 
»Abtastrate« einstellen. 

Das Größenverhältnis zwischen Original und Bild- 
schirm ist ebenfalls wählbar. Das Standardformat be- 
trägt 5. Bei einem kleineren Wert ergibt sich eine größe- 
re Bildschirmkopie, und bei einem größeren Wert erhält 
man entsprechend eine kleinere Kopie. 

Der zweite Menüpunkt im Programm dient dem Ab- 
gleich des Scanners. Der Scanner-Sensor liefert bei der 
Farbe Weiß einen hohen Spannungspegel und bei 
schwarzem Untergrund wird ein niedriger Spannungs- 
pegel erzeugt. Um die 7 Bit Datenbreite, die zur Verfü- 
gung steht, optimal auszunutzen, müssen Sie den A-D- 
Wandler ADC 0804 abgleichen. Dazu stellen Sie das Po- 
tentiometer, dessen Abgriff am Eingang V in - des A-D- 
Wandlers angeschlossen ist, zuerst so ein, daß der Mar- 
kierungsbalken auf dem Bildschirm so weit wie möglich 
links steht, und löschen darauf mit der Taste <L> die 
Werte für Minimum und Maximum. 

Nun fahren Sie mit dem Sensor auf die hellste Stelle 
der Vorlage. Die hellste Stelle haben Sie gefunden, 
wenn der Maximumwert am höchsten ist. Stellen Sie das 
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Potentiometer so ein, daß der Wert knapp unter 127 
liegt. Nachdem Sie mit <L> erneut die Werte für Mini- 
mum und Maximum gelöscht haben, suchen Sie mit 
dem Sensor den Punkt auf der Vorlage, der am dunkel- 
sten erscheint. Jetzt müssen Sie das im Schaltplan links 
eingezeichnete Potentiometer nur noch so einstellen, 
daß der angezeigte Wert ein wenig größer als Null ist. 
Damit ist der Scanner abgeglichen. 

Mit dem dritten Menüpunkt starten Sie den eigentli- 
chen Abtastvorgang. Zuerst übergibt das Programm 
Scanner der Maschinencode-Routine »scan.bin« mit 
dem RSX-Befehl UNIT die Parameter für Modus und Ab- 
tastrate. Dann wird der Drucker initialisiert und der 
RSX-Befehl ISCAN liest die Grauwerte für eine Bildzeile 
ein und setzt sie auf den Bildschirm um. Zum Schluß 
wird das Bild auf Datenträger gespeichert. 

Weil viele Drucker den Textausdruck optimieren, das 
heißt den kürzesten Weg bei der Ausgabe von Textzei- 
len berechnen, reagiert der Druckkopf bei der Ausga- 
be von Leerzeichen überhaupt nicht. Deshalb muß das 
Programm Scanner in Zeile 2320 Buchstaben ausgeben, 
um den Druckkopf zu bewegen. In diesem Fall muß der 
Druckkopf zum Scannen ausgebaut oder verdeckt wer- 
den, weil er sonst die Bildvorlage bedrucken würde. 

Optimiert Ihr Drucker den Textausdruck nicht, so kön- 
nen Sie in Zeile 2320 jedes »H« durch ein Leerzeichen er- 
setzen und müssen den Druckkopf nicht ausbauen. 

Um bei Druckweg-optimierenden Druckern den Aus- 
bau des Druckkopfes zu umgehen, können Sie den 
Drucker auch in den nichtoptimierenden Grafikmodus 
schalten und in Zeile 2320 statt Text weiße Grafikpunkte 
ausgeben. Da dieses Verfahren sehr langsam arbeitet, 
wurde der RSX-Befehl IDRUCK implementiert, der eine 
gewisse Anzahl von Grafikpunkten ausgibt. So erzeugt 
zum Beispiel der Befehl 

I DRUCK, 640,0 

eine Grafikzeile mit 640 weißen Punkten (Bitmuster 
00000000) auf dem Drucker, so daß der Druckkopf 
gleichmäßig eine Bildzeile abtasten kann. 




Trotz Digitalisierung ist War zu erkennen, um wen es sich hier 
handelt 



ÖTWPOTER 
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Schneider Anwendungs-Listinq 



Wird ein Bild im Modus 0 abgetastet, so bietet sich zu- 
satzlich der vierte Menüpunkt an, Hier wird das Scan- 
ner-Unterprogramm Scansub (Listing 2) geladen, das 
die Berarbeitung der digitalisierten Bilder erlaubt. Da 
beim Digitalisieren eines Bildes eine ungefähr 32 KByte 
große Quelldatei erzeugt wird und im Modus 0 der Hel- 
ligkeitswert der einzelnen Bildpunkte mit 7 Bit Genauig- 
keit gespeichert ist, lassen sich 128 verschiedene Hel- 
ligkeitsstufen speichern. 

Der Computer kann jedoch nur 16 Helligkeitswerte 
gleichzeitig darstellen. Das Überangebot an Informatio- 
nen wird von Scansub verwertet, um die Qualität des Bil- 
des zu steigern. An Funktionen steht das Invertieren, 
Einstellen des Kontrastes und der Helligkeit sowie das 
Speichern des Bildes zur Verfügung. 

Der Menüpunkt »Auto-Optimierung« ist ein besonde- 
rer Leckerbissen. Hier werden die Daten der Quellda- 
tei nach Minimum und Maximum durchsucht und korri- 
giert, um ein Optimum an Kontrast zu erzielen. Wenn Sie 
den Menüpunkt »Bild erstellen« wählen, so baut sich das 
Bild unter Berücksichtigung der eingestellten Werte 



neu auf. Mit < CTRL + C > erzeugen Sie eine Hardcopy, 
die auf allen Epson-kompatiblen Druckern funktioniert! 

Die Programme »scan.dat« (Listing 3) und »bild.dat« (Li- 
sting 4) sind die DATA-Lader für die verwendeten Ma- 
schinencode-Routinen. Sie erzeugen beim Start die Da- 
teien »scan.bin« und »bildbin«, die von Scanner bezie- 
hungsweise Scansub bei Bedarf nachgeladen werden 

Besitzer eines CPC 664 oder CPC 6128 müssen im Pro- 
gramm Scanner aus Zeile 1300, 1320 und 1340 und im 
Programm Scansub aus Zeile 1190 und 1210 die zweite of- 
fene Klammer im DEC$-Befehl entfernen. 

(Thomas Reisepatt/ma) 



Steckbrief 



Programm: 


Scanner, Scansub 


Computer: 


CPC 464/664/6128 


Checksummer: 


Explora, CPC 


Datenträger: 


Diskette 



10 'Hauptprogramm 

20 GOTO 1000 

30 SftVE"scanner" : END 

1000 IF HIMEM>&2400.THEN MEMORY &23FF 
1010 LOAD " scan .bin", &A300 : CALL ?<A300 
1020 modus=0: lrand=40: breite=640: hoehe=4 

00: geschw=150: z=0: -f ormat=5: abstand= 

60 
1030 ' 

1040 ' Hauptmenue 
1050 ' 

1060 MODE 1:PEN 1 : PAPER 0: BDRDER 0: INK 0 

,0:INK 1,24: INK 2,8:1 NK 3,16 
1070 LOCATE 13, 1 : PRINT"Scanner V2.1" 
1080 LOCATE 1,2:PRINT " 



CA51E3 
C4F3B3 
CA5E23 
C 5752 3 
C33D03 



1090 LOCATE 5, 7 :PR INT "Optionen: " 

1100 LOCATE 5,7:PRINT CHR* (22) CHR* ( 1 ) " 

"CHR* (22) CHR* (0) 

1110 LOCATE 5,10:PRINT" (1) Einstellen de 

r Grundwerte" 
1120 LOCATE 5,12:PRINT" (2) Abgleich des 

Scanners" 
1130 LOCATE 5, 14:PRINT" (3) Scannen" 
1140 IF modus=0 THEN LOCATE 5, 16: PRINT" ( 

4) Bild bearbeiten 
1150 LOCATE 1,22:PRINT STRING*(40 ," ") 
1160 LOCATE 5,24:PRINT"Copyright by~Thom 

as Reisepatt" 
1170 a= VAL ( I NKE Y* ) 

1180 ON a GOTO 1200,1780,2040,2410 
1190 GOTO 1170 
1200 ' 

1210 ' Einstellen der Grundwerte 

1220 ' 

1230 MODE 1 

1240 LOCATE 7 , 1 : PRINT"Ei nstel 1 en der Gru 
ndwerte" 

1250 LOCATE 1,2:PRINT STRING*(40," ") 
1260 LOCATE 5 , 7 : PRINT "Opti onen : " ~ 
1270 LOCATE 5,7:PRINT CHR* (22) CHR* ( 1 ) " 

"CHR* (22) CHR* (0) 

1280 LOCATE 5 , 10: PRINT " ( 1 ) Modus < 1 1 > "mod 

us; " <3> " 

1290 LOCATE 5, 12: PRINT" (2) Linker Rand<l 
4>" 

1300 LOCATE 23, 12: PRINT DEC* ( ( 1 r and , " ### 
#") 

1310 LOCATE 5, 14: PRINT" (3) 5peed <20V ' 
1320 LOCATE 22, 14: PRINT DEC* ( (geschw ,"## 

###") ' 
1330 LOCATE 5,16: PRINT" (4) Abtastr ate< 15 

1340 LOCATE 22, 16: PRINT DEC* ( (abstand , "# 
####") 

1350 LOCATE 5,18: PRINT" (5) Format < 19 > " 
1360 LOCATE 23, 18: PRINT USING"##tti lr TTorm 
at 

1370 LOCATE 5 , 20: PRINT " (6) Beenden" 
1380 a=VAL ( INKEY*) 

1390 ON a GOTO 1410,1470,1530,1590,1650, 

1 730 
1400 GOTO 1380 
1410 ' Modus 
1420 LOCATE 26,10: INPUT "",a* 
1430 a=VAL(a*) 



CDA443 
C90163 
CA6903 
CB61 A3 

C3C603 
CF6BA3 

C0BA63 
CF7D63 

CE3BA3 

CE7BE3 

CABEC3 
[B5F03 

EFDE63 
C59CC3 

C 6846 3 
C37BE3 
C554A3 
CA21A3 
C95143 
C13C03 
CB7183 
C41B83 

CCB263 
C5D6A3 
[00D43 

CBA9A3 

C 0342 3 

C7C003 

E691A3 
C 8046 3 

EA1463 

C 7544 3 

C6F063 
CBE0A3 

C 687 A3 
CCED23 
C88C43 

C0C423 
C7E143 
C566A3 
C4A263 
EA47E3 



1440 

1450 
1460 
1470 
1480 
1490 
1500 

1510 
1520 
1530 
1540 
1550 
1560 

1570 
1580 
1590 
1600 
1610 
1620 

1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 

1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 

1800 
1810 

1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 



IF a>2 OR a<0 THEN PRINT CHR*(7):GO 
TO 1460 
modus-a 
GOTO 1280 

Linker Rand 
LOCATE 23, 12: INPUT "" ,a* 
a=VAL(a*> 

IF a>9999 GR a<l THEN PRINT CHR* (7) 
:GOTO 1510 
lrand=a 
GOTO 1290 

Geschwindigkeit 
LOCATE 24,14: INPUT "" ,a* 
a=VAL(a*) 

IF a>9999 OR a< 1 THEN PRINT CHR* (7) 
:GOTO 1580 
geschw=a 
GOTO 1310 

Abtastrate 
LOCATE 23, 16: INPUT "",a* 
a=VAL(a*) 

IF a>9999 OR a< 1 THEN PRINT CHR* (7) 
:GOTO 1580 
abstand=a 
GOTO 1330 

Format 

LOCATE 24, 18: INPUT " " ; a* 
IF f<l OR f>9 THEN 1330 
abstand=abstand/f ormat 
f ormat=f 

abstand=abstand*-f or mat 

z=0:IF INT(-format/2)=-format/2 THEN 
z = l 

GOTO 1330 

Beenden 
GOTO 1060 

Abgleich des Scanners 

MODE IsORIGIN 64,0 

LOCATE 10, l:PRINT"Abgleich des Scan 
ners" 

LOCATE 1,2:PRINT STRING* (40 , "_" > 
FOR y=202 TO 212:MOVE 0,y:DRAW 512, 
y,l:NEXT 

LOCATE 10,20:PRINT "Minimum:" 
LOCATE 10,21:PRINT "Maximum:" 
LOCATE 10,22: PRINT "Wert:" 
LOCATE 10,23: PRINT "Wert: " 
LOCATE 14,7: PRINT "(1) Beenden"; 
jmin=255: jmax=0 
WHILE INKEY*<>"1" 

IF INKEY(36)=0 THEN jmin=255: jmax=0 



C 9334 3 
C6F603 
CD41E3 
CDB7A3 
C 0330 3 
CE68A3 

CDB8C3 
C872C3 
C951A3 
ED3923 
C 3330 3 
E7E843 

E7EA63 
CB1183 
C75183 
C1E823 
E812C3 
CFA7E3 

CE8A03 
E09CA3 
EBD163 
C 5938 3 
E305C3 
E01C83 
E2B3C3 
CD9383 
C01243 

CA3BA3 
C49143 
E1AC63 
E58183 
C 9628 3 
CB6FA3 
E942C3 
EE59C3 

E75B43 
C856C3 

E0C6B3 
C5AE63 
EC6EE3 
E377A3 
E237E3 
E 5790 3 
EC09C3 
E293A3 



E9A2A3 

1900 j=JOY(0) CA9083 

1910 jmin=MIN( jmin, j) E6A9E3 

1920 jmax=MAX ( jmax , j ) CB0AC3 

1930 LOCATE 20,20:PRINT jmin"<2>" EBD9C3 

1940 LOCATE 20.21: PRINT jmax" <2> " C23A43 

1950 LOCATE 20,22: PRINT j"<2>" E061C3 

1960 LOCATE 21, 23: PRINT BIN*(j,8) EE47E3 
1970 POKE &B339,0:ORIGIN 64,0,64,576,190 

Listing 1. Das Hauptprogramm »Scanner« sorgt für den Ab- 
gleich der Scanner-Schaltung und digitalisiert die Vorlagen 
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Änwendungs-Lisüng Schneider 





,200:CLG 


[C7063 




2+1) ) ; 


C5A763 


1980 


POKE &B339, 15:0RIBIN 64 ,0 , jmi n*4+64 




2230 


PRINT#8,CHR*(27) "8"; 


C3CDA3 




, j max *4+64 , 1 90 , 200 : CLG 


C95E43 


2240 


y=hoehe+2 


CEF0B3 


1990 


POKE S<B339,255:ORIGIN 64,0,64,576,2 




2250 


! INIT , modus , abstand 


C2BEC3 




14,224: CLG 


C 9BE8 3 


2260 


Inter rupt— Ini ti al i sierung 


C59B63 


2000 


MOVE j*4,214:DRAW j*4, 224,1 


C486A3 


2270 


EVERY geschw,0 GOSUB 2310 


CB4F23 


2010 


MO VE j*4+2,214:DRAW j*4+2, 224,1 


L75E03 


2280 


IF INKEY(47)=0 THEN a=REMAIN (0) : EI : 




2020 


WEND 


C3C243 




GOTO 1060 


C3E603 


2030 


GOTO 1060 


C9E0A3 


2290 


EI: DI: GOTO 2280 


C3C423 


2040 




C961A3 


2300 


Interrupt— Routi ne 


CE5183 


2050 


Scannen 


CB5E83 


2310 


DI:y=y-2::IF y<0 THEN a=REMA I N ( 0 ) : G 




2060 




C9B1E3 




OTO 2380 


C75DA3 


2070 


Anpassung des Modes und der F 

arben 


C 8908 3 


2320 


PRINT#8 , " HHHHHHHHHHHHHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 




2080 


IF modus<>0 THEN q=0:GOTO 2150 


C 16263 




HHHHHHHHHHHHHHHHHHHH " 


CBA0E3 


2090 


LOCATE 5,20:PRINT"Quelldatei oder B 




2330 


FOR x = l TO lrand:NEXT 


C0D84 3 




ild speichern ?" 


124803 


2340 


LOCATE l,l:PRINT CHR* (7); 


CDFF43 


2100 


a*=INKEY*:IF a*="" THEN 2100 


C3BD43 


2350 


! SCAN , y 


C 6860 3 


2110 


IF a*="q" THEN q=l:GQTO 2140 
IF a*="b" THEN q=0: GOTO 2140 


C 5064 3 


2360 


IF z THEN PRINT#8,CHR*(27) "3"CHR*(1 




2120 


C 5446 3 




) CHR* (27) CHR* ( 10) CHR* (27) "3 "CHR* ( IN 




2130 


GOTO 2100 


C 13043 




T(-format/2+l) ) ; 


E73F63 


2140 


LOCATE 5,20:PRINT"<32>" 


EB01A3 


2370 


RETURN 


EA09S3 


2150 


LOCATE 5,20: INPUT" Name des Bildes " 




2380 


IF q=0 THEN SAVE name* , b , &C000, &400 






,name* 


CBDE43 




0 


C71BC3 


2160 


name*=name* 


CCD603 


2390 


IF q=l THEN SAVE name* , b , &2400 , &7EF 




2170 


MODE modus 


C7AAE3 




F 


C AFFE 3 


2180 


IF modus=0 THEN FOR a=0 TO 15: INK. a 




2400 


RETURN 


CBDBC3 




,24*a/16:NEXT 


C230A3 


2410 


Bild bearbeiten 


C7874 3 


2190 


IF modus=l THEN FOR a=0 TO 4: INK a, 




2420 


IF modus<>0 THEN 1060 


C9C3E3 




24*a/4: NEXT 


C2F443 


2430 


RUN"scansub 


CDEDE3 


2200 


IF modüs=2 THEN INK 0,0: INK 1,24 


C404C3 








2210 


Drucket — Initialisierung 


C64B23 








2220 


PR I NT#B , CHR* ( 27 > " 3 " CHR* ( I NT ( f or mat / 




Listing 1. »Scanner« (Schluß) 





10 'Subroutine 


C9EB03 


1450 


NEXT 


CE3523 


20 GOTO 1000 


C4F383 


1460 


FOR a=mini TO maxi 


C439E3 


30 SAVE"scansub":END 


E5AEC3 


1470 


POKE f arbe+a, 15* (a-mini ) / (maxi-mini 




1000 


IF HIMEM >&23FF THEN MEMORY &23FF 


C07A83 




) 


C77303 


1010 


I nZiTV' h-i 1 H K -i r-k " ft»ATDlDla föi 1 

LUHU Dlia.Dln y «HjÖIO Z UHl—L. «H-_»(ÖKI 


CE3BC3 


1480 


NEXT 


C2F583 


1020 


modus = 0 s invBr~t~05 i nvBrt$— " Nsin" 2 kon 




1490 


FOR a=maxi+l TO 127 


IC8363 




l r — öl nei 1— u. sp* — nein 


C 064 A3 


1500 


POKE f arbe+a, 15 


E99A63 


1030 


Mi a 1 1 x in um — «h jhl . max x fiiuiit — mmohb : t arue — « 




1510 


NEXT 


C124C3 




AAP 1 


C4D763 


1520 


LOCATE 30,12:PRINT"<6>" 


C DDF A3 


1040 


mini =8: maxi =127: hmini=0: hmaxi = 127 


E5A463 


1530 


BOTO 1180 


C85183 


1050 


FOR a=0 TO 127:POKE f arbe+a , 15*a/ 12 




1540 


Invertieren 


C 12783 




7: NEXT 


LC3583 


1550 


FOR a=0 TO 127 


C2A7A3 


1060 




E931C3 


1560 


POKE f arbe+a, 15-PEEK(f arbe+a) 


C98103 


1070 


Hauptmenue 


E2E963 


1570 


NEXT 


CE65B3 


1080 


CB9203 


1580 


IF invert=0 THEN invert=l : invert*=" 




1090 


MODE 1:PEN 1: PAPER 0: BORDER 0: INK 0 






<2>Ja":B0T0 1170 


C9DAA3 




,0:INK 1,24: INK 2,8: INK 3,16 


C 5766 3 


1590 


invert=0: invert*="Nein" : BOTO 1170 


C7DA23 


1100 


LOCATE 13, l:PRINT"Scanner V2. 1 " 


C09AE3 


1600 


NEXT 


CFD4C3 


1110 


LOCATE 1,2:PRINT " 




1610 


Kontrast 


C ABS A3 




II 


C409A3 


1620 


LOCATE 29,16 


C2F7E3 


1120 


LOCATE 5, 7 :PR INT "Optionen: " 


C6ECA3 


1630 


INPUT kontr 


C2E903 


1130 


LOCATE 5,7:PRINT CHR* <22) CHR* ( 1 > " 
"CHR* (22) CHR* (0) 


C 7990 3 


1640 


IF kontr<0 OR kontr >50 THEN kontr=0 


C6FE03 


1140 


LOCATE 5, 10:PRINT" (1) Laden 


CFDDE3 


1650 


IF kontr=0 THEN 1730 


C1CE03 


1150 


LOCATE 5, 12:PRINT" (2) Auto-Opti mi er 




L660 


RAD 


[04883 




ung 


C04D03 


1670 


max2=ATN( kontr /20* (maxi -mini ) /2) *2 


C3AAE3 


1160 


LOCATE 5, 14:PRINT" (3) Invertieren" 


C71803 


1680 


FOR a=mini TO maxi 


C45A63 


1170 


LOCATE 29,14:PRINT invert* 


E2BC0 3 


1690 


b=15/max2*ATN (kontr/100* (a-mini- (ma 




1180 


LOCATE 5, 16:PRINT" (4) Kontrast" 


£ 2820 3 




xi-mini ) /2) >+7.5 


C4B963 


1190 


LOCATE 29,16:PRINT DEC* ( (kontr , "### 




1700 


POKE farbe+a,b 


CEEA23 




#") 


CAE763 


1710 


NEXT 


CF0503 


1200 


LOCATE 5,18:PRINT" (5) Helligkeit 


C6F2C3 


1720 


BOTO 1190 


CCF1C3 


1210 


LOCATE 27 ,18: PRINT DEC* ((hell," #### 




1730 


FOR a=0 TO 127 


C147A3 




##" ) 


C8AE23 


1740 


POKE f arbe+a, 15*a/ 127 


C6E5A3 


1220 


LOCATE 5,20:PRINT" (6) Speichern< 12> 




1750 


NEXT 


CE8583 






C1EA63 


1760 


GOTO 1190 


C7B243 


1230 


LOCATE 29,20: PRINT sp* 


C174A3 


1770 


Helligkeit 


C6B703 


1240 


LOCATE 5,22:PRINT" (7) Bild erstelle 




1780 


LOCATE 28,18 


CE98E3 




n 


C81FC3 


1790 


INPUT h 


C06123 


1250 


LOCATE 5 , 24 : PR I NT " ( 8 ) Beenden " 


C51D83 


1800 


hell=hell+h 


C 9206 3 


1260 


a*=INKEY*:IF a*="" THEN 1260 


CE2EC3 


1810 


mi ni =MAX (hmi ni — hei 1,0): maxi =MIN (hma 




1270 


a=VAL(a*> 


C 8882 3 




xi-hell , 127) 


CB7B03 


1280 


ON a BOTO 1300,1360,1540,1610,1770, 




1820 


IF mini<0 OR maxi>127 THEN STOP 


C55A03 




1840,1900,2010 


C33FE3 


1830 


GOTO 1640 


C 9320 3 


1290 


BOTO 1260 


C671C3 


1840 


Speichern 


C77AA3 


1300 


Laden 


IBD1E3 


1850 


IF speichern=l THEN sp*="Nein" : spei 




1310 


LOCATE 9,10:1 NPUT " Name : " , name* 


C6DBA3 




chern=0:EOTO 1220 


E031A3 


1320 


name*=name* 


CE85A3 


1860 


speichern=l : sp*="<2>Ja" 


CBA963 


1330 


LOAD name*,&2400 


C8D083 


1870 


LOCATE 9,20: INPUT "Name: ",name* 


CBC123 


1340 


LOCATE 9, 10:PRINT"Laden<ll>":UPPER* 




1880 


name*=name* 


CEC703 




(LEFT*(name*,8) ) 


C3BB43 


1890 


GOTO 1220 


C8B203 


1350 


GOTO 1140 


C67103 


1900 


Bild erstellen 


C84343 


1360 


Auto— Opti mi erung 
LOCATE 30, 12: PRINT "laeuft" 


CE4143 


1910 


MODE modus 


CA2B03 


1370 


C5B823 


1920 


IF modus=0 THEN FOR a=0 TO 15: INK a 




1380 


! MINMAX 


C 8064 3 




,a*24/16:NEXT 


CC80C3 


1390 


hei 1=0: kontr=0 


C97A83 


1930 


IF modus=l THEN FOR a=0 TO 4: INK a, 




1400 


mini =PEEK (mini mum ) 


CFF823 




a*24/4:NEXT 


C1E463 


1410 


max i =PEEK ( max i mum ) 


C6F8C3 


1940 


IF modus=2 THEN INK 0,0: INK 1,24 


C8B603 


1420 


hmin=mini :hmaxi=maxi 


CAD743 








1430 


FOR a=0 TO mini-1 


C3A563 


Listing 2. Das Scanner-Unterprogramm »Scansub« verarbeitet 


1440 


POKE farbe+a,0 


C81403 


digitalisierte Bilder 





Ausgabe 7/Juli 1987 



Schneider Anwendungs-Listing 



1950 ! BILD C2F0C3 
1960 IF speichern THEN SAVE naiei , b , &C00 

B,&3FFF EAFDA3 

1970 a*=INKEY*:IF a*="" THEN 1970 CB10C3 

1980 IF at=" " THEN 1080 C2AFE3 

1990 IF ASC(a*)=3 THEN ! HARDCOPY CE208D 



2000 BOTO 1970 
2010 ' Beenden 
2020 RUN"scanner 



Listing 2. »Scansub« (Schluß) 



C0A183 
C1BB6D 
CD9CA3 



100 '»****#**»**********»****»*»■»■*»*»**♦ [722C3 

101 '* SCAN. DAT - DATA-Lader von 'CPC * [2DDB3 

102 '»♦****»*»******»»***»♦********»»*♦* [DC303 

103 ' [DEB6 3 

104 DATA A300,01,1B,A3,21,25,A3,CD,D1,12DF C157C] 

105 DATA A308,BC,01,29,A3,21,33,A3,CD,511F [207C3 

106 DATA A310,D1,BC,01,37,A3,21,42,A3,416B [1C4A3 

107 DATA A318,C3,D1 ,BC,20,A3,C3,FF,A3,4709 EA1D63 
10B DATA A320,53,43,41,CE,00,D8,00,1B,3EFB [CD803 

109 DATA A328,A3,2E,A3,C3,5C,A3,49,4E,42E0 [30C03 

110 DATA A330,49,D4,00,C4,00,00,49,3C,1D6E [4B3C3 

111 DATA A338,A3,C3,25,A5,44,52,55,43,6C31 [DC383 

112 DATA A340,CB,00,43,4F,50,D9,00,00,68F4 [EC443 

113 DATA A34S,CB,00,A0,00,90,01,00,00,7504 [C6D63 

114 DATA A350,00,00,23,00,00,00,3E,01,041D [B19S3 

115 DATA A358,32,53,A3,C9,FE,02,3E,00,12B4 [B2723 

116 DATA A360,32,53,A3,C2,56,A3,21,00,15FE [9B423 

117 DATA A368,24,22,51,A3,DD,6E,00,DD,1D1D [9BB43 

118 DATA A370,66,01,22,4E,A3,DD,7E,02,3572 [71603 

119 DATA A378, 32, 50, A3, FE, 01, CA, A5, A3, 1449 [059C3 

120 DATA A380,DA,86,A3,C3,CE,A3,3E,FF,50AF [9F3C3 

121 DATA A388,32,2C,A4,32,02,A5,3E,00,0758 [D22C3 

122 DATA A390,32,3A,A4,32,4B,A4,32,5C,00D0 [2E4E3 

123 DATA A398,A4,3E,1F,32,04,A5,32,05,5F95 [DA6E3 

124 DATA A3A0,A5,32,06,A5,C9,3E,F0,32,53F2 [AA903 

125 DATA A3A8,2C,A4,32,EC,A4,3E,00,32,326A [61A03 

126 DATA A3B0,3A,A4,32,5C,A4,3E,0F,32,3274 [76863 

127 DATA A3B8,4B,A4,32,02,A5,3E,1F,32,0F3C [69AC3 
12B DATA A3C0,04,A5,3E,00,32,05,A5,32,2C7C [775C3 

129 DATA A3C8,06,A5,32,EF,A4,C9,3E,C0,2448 C17D63 

130 DATA A3D0,32,2C,A4,32,E3,A4,3E,30,0064 [7E503 

131 DATA A3D8,32,3A,A4,32,EC,A4,3E,0C,05A0 [17B83 

132 DATA A3E0,32,4B,A4,32,F7,A4,3E,03,1937 CCB763 

133 DATA A3E8,32,5C,A4,32,02,A5,3E,07,1B5F C54943 

134 DATA A3F0,32,EF,A4,3E,00,32,04,A5,35C5 [21B83 

135 DATA A3F8,32,05,A5,32,06,A5,C9,FE,0C08 C70AB3 

136 DATA A400.01 ,3E,00,32,53,A3,C2,56,0DE6 CAB3C3 

137 DATA A408, A3, C0, 21 ,00, 00, 22, 46, A3, 6507 [EEF83 

138 DATA A410,DD,6E,00,DD,66,01,22,4B,7BE8 [4AAC3 

139 DATA A418,A3,2A,51,A3,ED,5B,4A,A3,5D23 [ECD23 

140 DATA A420,D5,E5,CD,96,A4,CD,CE,A4,442C C2F223 

141 DATA A428,E1,D1,17,E6,00,77,D5,E5,48D3 [BE9A3 

142 DATA A430,CD,96,A4,CD,CE,A4,E1,D1,5EA3 [A43A3 

143 DATA A438,1F,E6,00,B6,77,D5,E5,CD,3C8B [33003 

144 DATA A440,96,A4,CD,CE,A4,E1,D1,1F,7059 CCFEE3 

145 DATA A448,1F,1F,E6,00,B6,77,D5,E5,11A3 C0DB23 

146 DATA A450,CD,96,A4,CD,CE,A4,E1,D1,5EA3 C0C463 

147 DATA A45B,07,07,07,E6,00,B6,77,23,0ED5 [465A3 

148 DATA A460,E5,1B,B7,21,00,00,ED,52,613B [4E523 

149 DATA A468,E1,DA,20,A4,2A,51,A3,ED,49FF [38103 



150 DATA A47B,5B,4A,A3,D5,E5,CD,E1,A4,234A CB0EE3 

151 DATA A478,E1,D1,23,1B,E5,B7,21,00,44A6 CFE723 

152 DATA A480,00,ED,52,E1,DA,73,A4,2A,396E [E6BE3 

153 DATA A4B8,51,A3,EB,2A,4A,A3,37,3F,1F0D t FADE 3 

154 DATA A490,ED,5A,22,51,A3,C9,F3,01,66BB [C2AE3 

155 DATA A498,0E,F4,ED,49,06,F6,ED,78,217A CD2023 

156 DATA A4A0,E6,30,4F,F6,C0,ED,79,ED,7C2B C893E3 

157 DATA A4A8,49,04,3E,92,ED,79,C5,CB,2CAD C912A3 

158 DATA A4B0.F1 ,06,F6,CB,C1 ,CB,D9,ED,6F0B C9A6C3 

159 DATA A4B8,49,06,F4,ED,7B,2F,32,54,361C C1BBB3 

160 DATA A4C0,A3,C1 ,3E,82,ED,79,05,ED,684B [D7F43 

161 DATA A4CB,49,3A,54,A3,FB,C9,E5,D5,2F53 CC3063 

162 DATA A4D0,ED,5B,4E,A3,21,00,00,B7,620F [699E3 

163 DATA A4D8,ED,52,1B,C2,D4,A4,D1,E1,6B33 C0BEA3 

164 DATA A4E0,C9,7E,E6,00,07,E5,CD,0E,65F8 C6B083 

165 DATA A4E8,A5,E1,7E,E6,00,07,07,07,6B75 E23A03 

166 DATA A4F0,E5,CD,0E,A5,E1,7E,E6,00,4D6C [ 14303 

167 DATA A4F8,1F,1F,1F,E5,CD,0E,A5,E1,020B C73243 

168 DATA A500,7E,E6,00,1F,1F,1F,1F,E5,072F [39CE3 

169 DATA A50B,CD,0E,A5,E1,23,C9,C5,CD,7CCB CCD563 

170 DATA A510,DE,BB,2A,46,A3,EB,2A,48,4648 ED0DE3 

171 DATA A518,A3,CD,EA,BB,2A,46,A3,23,751D CC8F43 

172 DATA A520,22,46,A3,C1,C9,FE,02,3E,1D7A CF2B83 

173 DATA A528,00,32,53,A3,C2,56,A3,DD,0A03 C4C643 

174 DATA A530,6E,00,DD,66,01,22,55,A3,2A49 C415A3 

175 DATA A53B,DD,6E,02,DD,66,03,CD,2E,7A18 [70FE3 

176 DATA A540,BD,38,FB,3E,01,CD,31,BD,4FE3 CBF263 

177 DATA A548,2B,11,00,00,B7,ED,52,C2,17AA CD88A3 

178 DATA A550,45,A5,C9,00,00,00,00,00,12E0 [1CEB3 

179 DATA »ENDE* C8AD63 

180 adr=&A300:zeile=104: MEMORY adr-1 EC2283 

181 READ d*:IF d*="*ENDE*"THEN 192 CC2963 

182 pr=0 C69143 

183 FOR i=l TO 8 C206A3 

184 READ a*:a=VAL<"&"+a*> CA1483 
1B5 PQKE adr ,a:adr=adr+l CEB243 
1B6 pr=pr*2: IF pr>65535 THEN pr=pr-65535 [B9A43 
187 pr=UNT(pr)XOR as IF pr<0 THEN pr=pr+6553 

6 CD4BC3 

1B8 NEXT i C4A123 

189 READ pr*:pr2=VAL("&"+pr*> : IF pr2<0 THEN 

pr2=pr2+65536 C369E3 

190 IF pr<>pr2 THEN PRINT"Pruef Summen-fehler 

in Zeile"; zeile: STOP CF6143 

191 zeile=zeile+l:GOTO 181 [B7663 

192 SA VE "SCAN. BIN" , B , &A300 , &252 CD1B43 

193 PRINT d*i END [22063 

Listing 3. Der DATA-Lader für die Maschinencode-Routine 
»scan.bin« implementiert mehrere RSX-Befehle 



100 '**»»**«•»»**#*****»*»-»*♦«**»»#*»»»,<» [722C3 

101 '* BILD. DAT - DATA-Lader von 'CPC * CCDC43 

102 *****»***»*»*****»»******»*»******* [DC303 

103 ' CDEB63 

104 DATA A300,01 , 1B,A3,21 ,27, A3, CD, Dl , 12CF [187E3 

105 DATA A308,BC,01,2B,A3,21,35,A3,CD,5147 [EB7A3 

106 DATA A310.D1 ,BC,01 ,39, A3, 21 ,47, A3, 4181 E2A3A3 

107 DATA A318,C3,D1 ,BC,20,A3,C3,5A, A3.4643 [5BA43 

108 DATA A320,4D,49,4E,4D,41 , D8 , 00 , 00 , 38B8 C7F623 

109 DATA A328,00,2E,A3,30,A3,C3,9E,A3, 1B6B C79A63 

110 DATA A330,42,49,4C,C4,00,00,00,3C,36BC C3A283 

111 DATA A338,A3,3E,A3,C3,07,A4,48,41 ,4429 LC75C3 

112 DATA A340,52,44,43,4F,50,D9,00,00,3574 [55EE3 

113 DATA A348, 00, 00, A0, 00, 00, 01 ,00,00, 1404 [F26C3 

114 DATA A350, 00, 00, 24, 00, 3E, 01 ,32,53,0543 [829A3 

115 DATA A358,A3,C9,FE,00,3E,00,32,53,7DC7 C75A63 

116 DATA A360,A3,C2,54,A3,3E,00,32,4B,606F ECC663 

117 DATA A368,A3,3E,FF,32,4C,A3,21 ,00,426E E619A3 

118 DATA A370,24,56,CB,0A,3A,4C,A3,BA,1F5C C1BE63 

119 DATA A378,D4,92,A3,56,CB,0A,3A,4B,59CF [ECFA3 

120 DATA A380,A3,BA,DC,98,A3,11,A0,A2,69BE C08E83 

121 DATA A388,B7,EB,ED,52,EB,C8,23,C3,7D3D CE83A3 

122 DATA A390,71,A3,7E,0F,32,4C,A3,C9,1E5F C62C63 

123 DATA A398,7E,0F,32,4B,A3,C9,FE,00,39F0 E59D63 

124 DATA A3A0,3E,00,32,53,A3,C2,54,A3, 1A6B [086E3 

125 DATA A3A8, 21, 00, 00, 22, 4D, A3, 21, 90, 1296 [A2FB3 

126 DATA A3B0,01 , 22 , 4F , A3 , 2 1 , 00 , 24 , 22 , 0AB2 [D614] 

127 DATA A3B8, 51, A3, 2A, 51, A3, 23, 22, 51, 0591 CDD263 

128 DATA A3C0,A3,7E,0F,26,00,6F,01 ,E1 ,4CDF E4ED43 

129 DATA A3C8,A4,09,7E,CD,DE,BB,2A,4D,5755 CE4403 

130 DATA A3D0,A3,EB,2A,4F,A3,CD,EA,BB,6DB3 CC57C3 

131 DATA A3D8,2A,4D,A3,23,23,23,23,22,11E0 [CB323 

132 DATA A3E0,4D,A3,EB,21 ,80,02,B7,ED, 14BB C53E03 

133 DATA A3E8,52,C2,BA,A3,21,00,00,22,05DA CF0643 

134 DATA A3F0,4D,A3,2A,4F,A3,2B,2B,22,0A30 [36AA3 

135 DATA A3F8,4F,A3,23,23,EB,21 ,00,00,0ECC C719C3 

136 DATA A400,B7,ED,52,C8,C3,BA,A3,FE,6348 CC20C3 

137 DATA A40B,00,3E,00,32,53,A3,C2,54,0D64 C37263 

138 DATA A410,A3,01,97,A4,CD,57,A4,11,4F0D [73943 

139 DATA A41B,80,02,D5,01 ,9B,A4,CD,57,5DB5 [96B03 

140 DATA A420,A4,21 ,90,01 ,D1 ,D5,E5,CD,4C8B C88A8] 

141 DATA A428,F0,BB,87,3C,47,21 ,77, A4, 4716 I1B7A] 

142 DATA A430,2B,23, 10, FD, 4E, 23, 46, CD, 122D [D2B23 



143 DATA A43B,57,A4,00,E1,01,02,00,B7,0C27 CCA1A3 

144 DATA A440,ED,42,C2,24,A4,01,9F,A4,7BBE [30C43 

145 DATA A448,CD,61,A4,E1,01,04,00,B7,64FF C9E9C3 

146 DATA A450,ED,42,EB,C2, 1A,A4,C9,0A,7498 C37EC3 

147 DATA A458,CD,6C,A4,03,0A,CD,6C,A4,6A28 C4406] 

148 DATA A460,03,0A,CD,6C,A4,03,0A,CD,1995 [2BB43 

149 DATA A468,6C,A4,C9,00,C5,CD,2E,BD,03DD [BE303 

150 DATA A470,38,FB,CD,31,BD,C1,C9,DD,3FD3 [33483 

151 DATA A478,A4,D9,A4,D5,A4,D1,A4,CD,7A71 [8F0E3 

152 DATA A4S0,A4,C9,A4,C5,A4,C1 ,A4,BD,7F41 [D8FE3 

153 DATA A488,A4,B9,A4,B5,A4,B1 , A4, AD, 6591 CBFEE3 

154 DATA A490,A4,A9,A4,A5,A4,A1,A4,1B,6067 C1FB43 

155 DATA A498,33,0C,0D,1B,4C,20,03,0A,187C CC86E3 

156 DATA A4A0,0D,00,00,00,00,00,04,00,0688 CCBAC3 

157 DATA A4A8, 00, 00, 04, 00, 01 ,01 ,04,00,0084 [6D8E3 

158 DATA A4B0, 02, 01, 04, 08, 02, 01, 04, 09, 0155 [05AA3 

159 DATA A4BB,02,05,02,0A,04,05,0A,05,0085 [9EF43 

160 DATA A4C0,02,05,0A,05,0A,05,0E,05,010D C380E3 

161 DATA A4C8,0A,05,0E,05,0B,07,0A,0D,058D [EA7A3 

162 DATA A4D0,0B,07,0F,0D,0A,07,0F,0D,052F [66943 

163 DATA A4D8,0F,0F,0B,0F,0F,0F,0F,0F,0585 C85DE3 

164 DATA »ENDE* CD7CA3 

165 adr =&A300 : z ei 1 e= 1 04 : MEMORY adr-1 C012E3 

166 READ d*:IF d*=" »ENDE* "THEN 177 C61A23 

167 pr=0 C821A3 

168 FOR i=i TO 8 [1F703 

169 READ a*:a=VAL("S<"+a*> C114E3 

170 POKE adr ,a: adr=adr+l CDD183 

171 pr=pr*2: IF pr>65535 THEN pr=pi — 65535 CD4983 

172 pr=UNT<pr)XOR a: IF pr<0 THEN pr=pr+6553 

6 C99B03 

173 NEXT i C3D063 

174 READ pr$:pr2=VAL<"S."+pr*> : IF pr2<0 THEN 

pr2=pr2+65536 • [33923 

175 IF pr<>pr2 THEN PRINT"Pruef 5ummen-f ehl er 

in Zeile";zeile:STOP [B31A3 

176 zeile=zeile+l:GOTO 166 [E6723 

177 SAVE"BILD.BIN",B,S<A300,&1E1 [C3C23 

178 PRINT d*: END [250C3 

Listing 4. Der DATA-Lader für die Maschinencode-Routine 
»bild.bin« 



62 
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CPC-Schieb-Lehre 



Wahrscheinlich hat auch Sie schon immer das 
weiche Text-Scrolling in verschiedenen Pro- 
grammen fasziniert. Mit unserem Listing 
»Scroll« bringen Sie das auch Ihrem CPC bei. 



Laufschriften eignen sich vorzüglich, um Bild- 
schirmmeldungen wirkungsvoll optisch hervorzu- 
heben. Das gilt besonders, wenn diese Texte nicht 
zeichen-, sondern pixelweise verschoben werden. Lei- 
der unterstützt das Betriebssystem der Schneider CPC- 
Serie diese Funktion nicht. Also muß geeignete Soft- 
ware diesem Mißstand Abhilfe schaffen. Mit dem Pro- 
gramm »Scroll« ist es nun kein Problem mehr, einen be- 
liebigen Text per RSX-Befehl in allen drei Modi und auf 
allen 200 Grafikzeilen butterweich zu scrollen. 



Geben Sie zuerst Listing 1 ein und speichern Sie die- 
sen Basic-Lader sicherheitshalber. Nach dem Start 
durch »RUN« speichert er selbsttätig den erzeugten 
Maschinencode als Binärdatei unter dem Namen 
»SCROLL.BIN«. Anschließend geben Sie Listing 2 ein, 
das eine Demonstration enthält. Zum Gebrauch der Be- 
fehlserweiterung brauchen Sie später nur den Maschi- 
nencode durch die Befehlsfolge 

MEMORY &A123 
LOAD "SCROLL. BIN 
CALL &A126 

zu laden und aktivieren. Besitzen Sie einen CPC 664 
oder 6128, müssen Sie noch die POKEs aus Zeile 150 der 
Demonstration einfügen. Der Befehl 

I SCROLL. INIT, Startzeile 

muß der ersten Textausgabe vorausgehen. Die Variable 



1B0 '************************************* C31D43 

101 '* SCROLL.DAT - DATA-Lader von 'CPC * LE72C3 

102 '****************»»*******»»*******»** CA3DB3 

103 ' CDEB63 

104 DATA A124,00,00,01,2F,A1,21,5A,A1,0749 C10FA3 

105 DATA A12C,C3,D1 ,BC,3D,A1 , C3, 5E, AI ,4789 C3DF43 

106 DATA A134, C3, 7D, AI ,C3, El, AI, C3, 4(1,6296 C4DB63 

107 DATA A13C,A2,53,43,52,4F,4C,4C,2E,4B7E C60C03 
10B DATA A144,49,4E,49,D4,53,43,52,4F,301F CED5C3 

109 DATA A14C,4C,CC,43,4F,4E,54,49,4E, 1A6C Q74F43 

110 DATA A154,55,C5,43,4C,D3,00,FC,A6,10A6 C8EB43 

111 DATA A15C,2F,A1,FE,01,C0,DD,46,00,25E8 [B7C43 

112 DATA A164,21 ,00,C0,78,B7,28,07,EB,0AFD CC4BE3 

113 DATA A16C,CD,22,A2,EB,10,F9,22,33,77E3 [7CB63 

114 DATA A174,A2,01 ,4F,00,09,22,0A,A2,58D6 [043E3 

115 DATA A17C,C9,FE,02,C0,CD,CC,A1,CD,5397 C5D463 

116 DATA A184,80,A2,22,BD,A1 , AF,CD,80,61BE CD1EE3 

117 DATA A1BC,A2,36,01,DD,23,DD,23,3C,5366 CF49A3 
IIB DATA A194,CD,B0,A2,78,32,23,A1,22,553C C90603 

119 DATA A19C,24,A1 ,7E,FE,20,3B,24,C5,3B0D C92C43 

120 DATA A1A4,E5,CD,EA,A1 ,E1 ,C1 ,CD,09,530F CD0223 

121 DATA A1AC,BB,3B,0D,23,10,EC,ED,4B,52B1 C92F43 

122 DATA A1B4,22,A1,2A,24,A1,C3,9E,A1,39D9 C7DA63 

123 DATA A1BC,32,00,00,7B,32,20,A1,22,1EF0 C67203 

124 DATA A1C4,21,A1,C9,CD,6A,A2,18,DE,2C06 EB5EA3 

125 DATA A1CC,3A,8F,B2,32,14,A2,CD,11,2S03 EF79E3 

126 DATA A1D4,BC,2F,E6,03,FE,03,20,01,4E8D C5FD4 3 

127 DATA A1DC,3C,32,F4,A1,C9,ED,4B,1F,0365 CC1003 

128 DATA A1E4,A1,2A,21,A1,18,C5,CD,A5,56DB CFFEA3 

129 DATA A1EC,BB,11,00,A1,CD,53,BC,06,55BA CD6E23 

130 DATA A1F4,00,21 ,00, AI ,C5,E5,CD,30,0646 CF44E3 

131 DATA A1FC,A2,E1,E5,CD,09,A2,E1,C1,7AF3 E422E3 

132 DATA A204,05,CB,23,18,EF,11,00,00,325C [46163 

133 DATA A20C,ED,4B,F4,A1 ,06,08,7E,E6,70DA [58FE3 

134 DATA A214,00,12,CD,22,A2,79,23,0D,1BBF [2C763 

135 DATA A21C,20,FC,4F,10,F1,C9,7A,C6,237E [5CE23 

136 DATA A224,08,57,D0,C5,EB,01,50,C0,00AC [B67A3 

137 DATA A22C,09,EB,C1,C9,3E,0B,11,00,2B02 C4A823 

138 DATA A234,00,62,6B,23,D5,01,4F,00,11E2 [4A1C3 

139 DATA A23C,ED,B0,D1,3D,B7,CA,19,BD,456F C984A3 

140 DATA A244,F5,CD,22,A2,F1 ,C3,35,A2,43EC [9BCC3 

141 DATA A24C,2A,33,A2,3E,0B,54,5D, 13,0FD9 CFB96] 

142 DATA A254,36,00,E5,01,4F,00,ED,B0,04A2 [4F523 

143 DATA A25C,E1,3D,B7,CB,EB,F5,CD,22,6094 E76143 

144 DATA A264,A2,F1 ,EB,C3,51 ,A2,CD,5A,7DD0 [37103 

145 DATA A26C,BB,D6,0E,2B,02,3D,C0,23,6A07 [90B03 

146 DATA A274,7E,05,CD,5A,BB,3A,BF,B2,26DC C1E2C3 

147 DATA A27C,32,14,A2,C9,DD,6E,00,DD,035D [7BDE3 

148 DATA A2B4,66,01 ,B7,C8, 46,23, 5E, 23, 2B03 [D4503 

149 DATA A2BC,56,EB,C9,99,9F,99,C3,FF,0695 [AE323 

150 DATA *ENDE* [54C03 

151 adr=8<A124:zeile=104:MEMORY adr-1 [312C3 

152 READ d*: IF d*= " »ENDE* " THEN 163 [7CBE3 

153 pr=0 [4E103 

154 FOR i=l TO B [33663 

155 READ a*:a=VAL("8<"+a*> [2B443 

156 POKE adr,a:adr=adr+l [B7203 

157 pr=pr*2:IF pr>65535 THEN pr=pr- 65535 [06A03 

158 pr=UNT(pr)XOR a: IF pr<0 THEN pr=pr+6553 

6 [CFBB3 

159 NEXT i [430E3 

160 READ pr*:pr2=VAL<"&"+pr*> : IF pr2<0 THEN 

pr2=pr2+65536 E6BB83 

161 IF pr<>pr2 THEN PRINT"Pruef summenf ehler 

in Zeile";zeile:STOP CF510D 

162 zeile=zeile+l:GOTO 152 [FF5E3 

163 8AVE" SCROLL. BIN" ,B,&A124 ,S*16E: END [05543 



Listing 1. Der DATA-Lader von »Scroll« 



*=*=*=*=*=♦=*=*=* 

= HAPPY-SCROLL = 
*=*=*=*=*=*=*=*=* 

1. 19B7 

Jan— Mirko Maczewski 



10 ' 
20 ' 
30 ' 
40 ' 
50 ' 
60 ' 
70 ' 
80 * 

90 MODE 1: INK 2,13:INK 1,26:PEN 3:PRINT" 

Bitte warten - lade MC-Code..." 
100 SPEED INK 2,2:f *=CHR#(15) : INK 3,6,24 

: MEMORY 41251 
110 LOAD "scroll.bin" 
120 CALL &A126 'Initialisierung 
130 SPEED INK 10,10:CLS:PEN 3:PRINT:INPU 

T"CPC 664/6128 angeschlossen " ; a* 
140 IF UPPER* <a*X>"J" THEN 160 
150 POKE 8<A27A,S<2F:P0KE &A27B , &B7 : POKE & 

A1CE,&B7:P0KE S<A1CD,&2F 
160 CLS: PAPER 2 

170 PRINT SPC(B)"H A P P Y <2>-<2>S C R O 

L L"SPC(7) : PAPER 0:PEN 2: PRINT 
180 PR I NT : PR I NT "Die neuen Befehle :":PRI 

NT: PEN 1:PRINT" ! SCROLL. INIT, Startze 

ile 

190 PRINT" 1 SCROLL, @a*,@t* <a*=Text: t*=g 

edr . Taste) " ; 
200 PRINT" iCLS (Loeschen des Scroll-Ber 

ei ohes) 

210 PRINT" ! CONTI NUE (Scrolling Cnach Ta 
stendruck3 <12>f ortsetzen) ": PRINT 

220 PEN 3:PRINT"WICHTIG :":PEN 1 : PRINT" V 
or dem ersten !SCR0LL"f*"2 MUSS"f*"l 

230 PRINT" '.SCROLL. INIT aufgerufen werden 



[8B943 
[F5823 
[9F9B3 
[82563 
[BB88 3 
[B45A3 
[F4CB3 
[B65E3 

[810E3 

[0640] 
C 69583 
[4CCC3 

[2D323 
[D7F03 

[ED5B3 
[DB3A3 

[7BB83 



240 
250 
260 

270 
2B0 

290 



300 



310 

320 



330 



340 

350 
360 
370 
3B0 
390 

400 
410 
420 
430 

440 



P P 
:MOD 



Ist 



PRINT: PRINT" D=DEMO - "f*"3 Nun ? 
a*=L0WER*<INKEY*> : IF a*="" GOTO 250 
IF a*<>"d" THEN PEN l:LOCATE 1,17:PR 
INT CHR* ( 1B) : END 
! SCROLL . I N I T , 1 B0 : RESTORE 440 
FOR i=l TO 5: READ x*: b*=b*+f *+CHR* (i 
+70)+x*:INK i+5,7+2*i:NEXT 
READ c*:a*=b*+f*+"l"+c*+f*+"3H A 
Y <2> - <2>5 C R O L L"+f*+"l ..." 
E 0 

a*=a*+" < ENTER > = wei ter <4> " : PEN 
*="nYZ" 'in t* MIND. 1 Buchstabe 
PRINT"D E M 0 : ": ! SCROLL, @a*,@t* 
IF t*=CHR*<13> THEN 330 ELSE ! CONTIN 
UE:BOTO 320 

MODE 1:PEN l:PRINT"Bitte zu scrollen 
den Text eingeben !":LINE INPUT a*:m 
= 1 

! SCROLL . I N I T , 1 00 : GOSUB 430 : ! SCROLL , @ 
a*,St* 

t*=UPPER* Ct*) : IF t*="E" THEN 390 
IF t*<>"N" THEN I CONTI NUE: GOTO 350 
m=m+l:IF m=3 THEN m=0 
GOTO 340 

MODE 1:PEN 1 : PRINT"Wol len Sie einen 

neuen Text eingeben ?" 

a*=LOWER*(INKEY*) : IF a*="" GOTO 400 

IF a*="n" THEN END 

IF a*<>"j" THEN 400 ELSE 330 

MODE m: PRINT"E = Ende" : PRINT"N = nae 

chster MODE": RETURN 

DATA H,A,L,L,0," , dies ist <2> " 



C 0402 3 
[23BE3 
19446 3 
[3FB03 

CB28A3 

[9DFC3 
[D9203 
[61343 

C 17763 
C 5682 3 

CB3143 

CAE543 

CF1FE3 
[C1BC3 

[63CC3 

C222B3 

[261B3 
[CEF03 
[DF0E3 
[BC7B3 
[02563 

C 5390 3 
[87283 
C903C3 
E51283 

CEB4B3 
[B7B63 



Listing 2. Das Demo-Programm zeigt »Scroll« im Einsatz 
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< startzeile > darf Werte zwischen 0 und 193 annehmen, 
wobei der Wert 0 die oberste Bildschirmzeile repräsen- 
tiert und 193 die unterste Zeile. ICLS löscht den Bereich, 
in dem der Text gescrollt wird. Mit 

I SCROLL, @text$, @tasten$ 

starten Sie das Rollen der Nachricht in der Stringvaria- 
blen <text$>. Der zweite Parameter (< tasten! >) hat 
beim Aufruf noch keine Funktion. Diese Variable enthält 
nach der Unterbrechung des Scrollens das Zeichen der 
gedrückten Taste. Damit der Aufruf fehlerfrei funktio- 
niert, muß <tasten$> jedoch vorher mit einem beliebi- 
gen Zeichen definiert sein: 

text$='"fest ": tasten$="A" 

Soll das Scrolling nach dem Tastendruck nicht en- 
den, genügt der Befehl ICONTINUE um den im letzten 
SCROLL-Befehl bestimmten Text weiterlaufen zu las- 
sen. Der Bildschirm darf keinesfalls vertikal gescrollt 



werden, weil sich dabei das Offset verändert und infol- 
gedessen die flüssige Textausgabe nicht mehr zufrie- 
denstellend arbeitet. Erst ein erneuter MODE-Befehl 
sorgt dann wieder für Ordnung. 

Beispiele für den praktischen Einsatz der Befehle ent- 
nehmen Sie dem Demonstrationsprogramm. Das Expe- 
rimentieren mit den Befehlen und verschiedensten Pa- 
rametern verdeutlicht die Programmierung mit Scroll 
am besten. (J. Maczewski/ja) 



Steckbrief 



Programm: 


Scroll 


Computer: 


CPC 464/664/6128 


Checksummer: 


Explora/CPC 


Datenträger: 


Kassette/Diskette 



Farbenfrohe Schrift 




Mehrfarbige Zeichendarstellung liegt Ihrem 
CPC nicht. Wenn Sie dieser Meinung sind, 
lassen Sie sich von »Multi-Color« eines besse- 
ren belehren. 

a hat man nun einen Computer, zu dessen her- 
I ausragenden Fähigkeiten die gleichzeitige Dar- 
stellung von bis zu 16 Farben auf dem Bildschirm 
zählt, aber einzelne Zeichen erscheinen immer nur in ei- 
ner Farbe. Ein kleines Unterprogramm bringt Ihren 
Computer zu einer farbenfreudigeren Wiedergabe. 
Das Listing enthält neben der Subroutine (in den Zeilen 
ab 65000) auch eine Demonstration. Die Buchstaben er- 
scheinen dreifarbig in den Modi 0 und 1 Der Modus 2 
mit seinen nur zwei Farben (eine für den Hinter- und ei- 
ne für den Vordergrund) eignet sich natürlich nicht für 
diese Nutzung. Die untersten vier Pixelzeilen jedes Zei- 
chens werden in einer Farbe (Ink 1) dargestellt, die dar- 
überliegenden zwei in der zweiten (Ink 2) und die obe- 
ren zwei in der dritten (Ink 3). Für Besitzer eines Farbmo- 
nitors empfehlen sich beispielsweise folgende Farb- 
kombinationen: 



Farbtopf 


0 


1 


2 


3 


Farbe 


0 


6 


15 


24 




0 


4 


8 


26 




0 


9 


18 


23 




0 


2 


11 


20 



Beim Grünmonitor entscheiden andere Auswahlkrite- 
rien die Farbwahl, da er nur verschiedene Helligkeits- 
werte darstellen kann. 

Verwenden Sie die Routine in eigenen Programmen, 
positionieren Sie zunächst den Cursor mit LOCATE an 



Steckbrief 


Programm: 


Multi-Color-Schrift 


Computer: 


CPC 464/664/6128 


Checksummer: 


Explora 


Datenträger: 


Kassette/Diskette 



der Stelle, auf der der mehrfarbige Text erscheinen soll. 
Danach weisen Sie der Stringvariablen <text$> den 
String zur Ausgabe zu und rufen die Routine mit »GOSUB 
65000« auf. (Oliver Suttorp/ja) 



10 REM 
213 REM ** 
30 REM ** 
40 REM ** 
50 REM ** 
60 REM ** 
70 REM ** 
80 REM ** 
90 REM ** 
100 REM ** 
110 REM ** 
120 REM ***************************** 
130 REM 

Die nachfolgenden zwei 
Zeilen muessen auch in 
IHREM Programm vorhanden 
sein 



***************************** 

** 
** 
** 
** 
** 
** 
** 
** 
** 
** 



Mul ti -Col or-Schr i f t 

fuer CPC 464/664/6 12B 

Oliver Suttorp 
Johannisstr. 64 

5024 Pul heim 
Tel . : 02238/56368 



ü) ; " 1 " 



: GOSUB 65 



: GOSUB 65 



140 REM 
150 REM 
160 REM 
170 REM 
180 REM 

190 SYMBOL AFTER 32 
200 adr=HIMEM+l SPRINT CHR* ( 
210 REM 

220 BORDER 0: INK 0,0: INK 1,6: INK 2, 15: IN 
K 3,24 

230 MODE f lag+l:PRINT CHR* (22) ; " 1 " 
240 flag=NOT f lag: b=2~ABS (f lag) 
250 LOCATE 4*b ,3: text*="Multi-" 
000 

260 LOCATE 7*b , 5: text*="Cal or-" 
000 

270 LOCATE 10*b ,7: text*; 
65000 

280 LOCATE 4*b , 14: text*="Die bunte Welt" 

:BOSUB 65000 
290 LOCATE 4*b , 16: text*="wird bunter .." 

:SOSUB 65000 
300 FOR i=l TO 800: NEXT: GOTO 230 
65000 ' text*=zu schreibender Text 
65010 FOR i=l TO LENCtext*) 
65020 a=ASC(MID*<text*,i , 1) > -32 
65030 anf=a*B+adr 

65040 SYMBOL 253 , PEEK (anf ) , PEEK (anf + 1 ) ,0 
0 0 0 0 0 

65050 SYMBOL ' 254 , 0,0, PEEK < anf +2 ) , PEEK ( an 

f +3) ,0,0,0,0 
65060 SYMBOL 255 ,0,0,0,0, PEEK ( an-f +4 ) , PEE 

K(anf+5) , PEEK < anf +6) ,PEEK(anf+7) 
65070 x =POS ( #0 ) : y=VPOS < #0 ) 

65080 FOR j=253 TO 255: PEN 256- j : LOCATE 

x,y:PRINT CHR* ( j );: NEXT 
65090 NEXT i 
65100 RETURN 



"Schrift": GOSUB 



C10CE3 
C7EDC3 
C778C] 
C5EE0: 
CF10C3 
C BEE4 1 
CC68A] 
C84BE] 
CF96B3 
C4F8B1 
CBDFCD 
CD8F2] 
C57303 
C6CB03 
C 2776 1 
C11F83 
IF4DA] 
C763A] 
CEB4E3 
CA87E3 
C652E] 

C99B4] 
C137A] 
C60C4] 

E5CBE3 

C3FB2 3 

IC55A3 

I62D0] 

C 29823 
C265A3 
C 0094 3 
C82EC3 
CB33E] 
C106A3 

CBCC23 

CE4B43 

C 9702 3 
C 4592 3 

C51C23 
C96DB3 
CD7FS3 



Die Unterroutine zur mehrfarbigen Textdarstellung beginnt 
ab Zeile 65000. Der Rest dient der Demonstration. 
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Quadromania im ST 



Echten Denkspaß, der auch die Redaktion für 
einige Tage fesselte, bietet »Quadromania«. 
Ganz einfach und doch verblüffend knifflig. 



E 



s gibt sie: Neue Programmideen, die durch ihre 
Einfachheit bestechen und jedermann in ihren 
iBann ziehen. Quadromania ist ein solches Bei- 
spiel. Es handelt sich um ein ganz neuartiges Brettspiel, 
das — wie wir meinen — noch einige interessante Ideen 
nach sich ziehen dürfte (beachten Sie dazu unseren 
Wettbewerb). 

Bei Quadromania wird auf einem karierten Spielbrett 
mit 38 x 22 Feldern gezogen. Nachdem Sie den Menü- 
punkt »Spielstart« angeklickt haben, baut sich das Spiel- 
feld auf. Hierbei setzt Ihr Computer zunächst auf alle 38 
x 22 Felder weiße Sternchen. Anschließend wählt der 



Egal, welchen Computer Sie 
besitzen — programmieren 
Sie mit beim Quadromania- 
Wettbewerb! 

Die Idee zu unserem Listing Quadromania bietet 
die Grundlage für viele neue Denkspiele. Mit erwei- 
terten und veränderten Regeln sind vielfältige und 
packende Varianten denkbar. Beispielsweise das 
Drehen von Quadraten mit einer Seitenlänge von 5, 7 
oder mehr Feldern. Oder schreiben Sie das Spiel 
und die Regeln so um, daß eine Partie zu zweit oder 
mehreren gespielt werden kann. Schwierig, aber 
hochinteressant wäre es auch, mit mehr als zwei Zu- 
ständen der einzelnen Felder zu arbeiten. Dies wür- 
de bedeuten, daß ein Feld nicht mehr nur schwarz 
und weiß sein kann. Vielmehr müßte es beispielswei- 
se die Farben Grün-Rot-Blau-Grün-Rot-Blau (usw.) 
aufeinanderfolgend annehmen. Krönen Sie Ihre Be- 
mühungen, indem Sie einen Lösungsalgorithmus ent- 
wickeln und den Computer mitspielen lassen. Ihrem 
Erfindergeist sind keine Grenzen gesetzt. Schaffen 
Sie ein völlig neues Spiel! Die Umsetzung auf alle an- 
deren Computer sollte mit unserem Programm als 
Vorlage keine Schwierigkeiten mehr bereiten. 

Natürlich wollen wir, daß alle Leser von Ihren 
Ideen profitieren. Deshalb veröffentlichen wir das 
beste Programm und honorieren es mit 500 Mark. 
Darüber hinaus erhält der Sieger ein Jahres-Abonne- 
ment der Happy-Computer oder des 68000er-Maga- 
zins. Der zweite und dritte Preis sind ebenfalls ein 
Wunsch-Abo. Die Plätze vier bis acht werden jeweils 
mit einem Markt & Technik-Buchgutschein im Wert 
von 50 Mark bedacht. Selbstverständlich nimmt Ihr 
Programm automatisch auch am Wettbewerb um das 
Listing des Monats teil, das mit 3000 Mark honoriert 
wird. Der Rechtsweg ist ausgeschlossen. Einsende- 
schluß ist der 15. September 1987. 

Ihr Programm senden Sie bitte auf Diskette und mit 
ausführlicher Beschreibung an die untenstehende 
Adresse. Machen Sie mit? 
Happy-Computer - Matthias Rosin 
Stichwort Quadromania 
Hans-Pinsel-Str. 2 8013 Haar 



ST rein zufällig quadratische Felder der Größe aus 3x3 
Sternchen aus. Alle neun Sternchen dieser Quadrate 
werden sodann invertiert. Weiße Sternchen erscheinen 
schwarz und umgekehrt. Je nachdem von Ihnen gewähl- 
ten Schwierigkeitsgrad werden nacheinander zwischen 
50 und 170 Quadrate an beliebiger Stelle im Spielfeld in- 
vertiert. 

Auf dem Atari ST läuft Quadromania sowohl auf dem 
monochromen als auch auf dem farbigen Monitor: Den 
weißen Sternchen in der höchsten Auflösungsstufe ent- 
sprechen die blauen auf dem Farbmonitor. Schwarze 
Felder entsprechen den orangefarbenen Sternchen, 

Ihre Aufgabe und der Sinn dieses Spiels besteht im 
genauen Gegenteil. Stellen Sie aus dem Chaos die an- 
fängliche Ordnung aus weißen Sternchen wieder her. 
Hierzu klicken Sie beliebige Felder innerhalb des Spiel- 
feldes an (Felder unmittelbar am Rand ausgenommen). 
Das angeklickte Feld und die jeweiligen acht Nachbar- 
felder, insgesamt also wieder 3x3 Quadratelemente, 
werden erneut invertiert. Nun liegt es an Ihnen, das ein- 
heitlich weiße Areal mit der vorgegebenen Anzahl von 
Drehungen wiederherzustellen. Das ist schon alles. 

Die Bedienung von Quadromania ist unkompliziert: 
Nach dem Programmstart erscheint das Auswahlmenü. 
Hier stellen Sie durch Anklicken der jeweiligen Be- 
zeichnung mit der Maus Schwierigkeitsgrad, Aussehen 
des Mauszeigers und Geräuschuntermalung ein. Nach- 
dem die Einstellungen vorgenommen wurden, starten 
Sie Quadromania mit Punkt 1. Mit Punkt 5 gelangen Sie 
zurück in den Editor des GFA-Basic beziehungsweise in 
die File-Select-Box des Run-Time-Interpreters. 

Es stehen neun Schwierigkeitsstufen zur Auswahl. In 
Stufe 1 werden 50 Quadrate vom Computer gedreht, bis 
zu 170 Quadraten in Stufe 9. Ein Tip: Sollte Ihnen der 
Schwierigkeitsgrad einmal nicht mehr ausreichen, so 
können Sie die Werte in Zeile 183 ändern. Erhöhen Sie 
hierzu entweder die Zahl 35 oder die Zahl 15. Vergessen 
Sie aber nicht, entsprechende Änderungen in Zeile 130 
vorzunehmen, andernfalls erscheint nach dem Aufbau 
des Spielfeldes eine Falschmeldung. Wollen Sie die 
Zahl der Ihnen zur Verfügung stehenden Drehungen 
herabsetzen, so ändern Sie Zeile 127 entsprechend. 

Unter dem Menüpunkt Mauszeiger empfiehlt es sich, 
das Fadenkreuz als Mauszeiger zu wählen. Sollten Sie 
versuchen Quadromania zu compilieren, so werden Sie 
enttäuscht: Der Spielfeldaufbau dauert im compilierten 
Programm etwa doppelt so lang. 

(Christian Zwicker/Matthias Rosin/lg) 

Steckbrief 



Programm: 


Quadromania 


Computer: 


Atari ST 


Checksummer: 




Sprache: 


GFA-Basic 2.0 



l! I-f Xbios(4)<>0 
2: Au-f loesung%=l 

3s Else 

4: Auf 1 pesung7.=B 

5: Endif 

A: On Break Sasub E. 

7: Gosub Init 

Bs Basub Start 



Quadromania bringt 
die grauen Zellen zum 
Sieden (Zeilennum- 
mern nicht abtippen) 
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Atari ST Spiele-Listing 



9: Gosub E. nde 



to- 


Procedure Init 


ll 


Setcolor 0,0,0,0 




! Hi ntergrund-f arbe/ 




schwarz 


12 


Setcolor 1,0,4,7 




Ihellblau 


13 


Setcolor 2,7,0,0 




!rot 


14 


Setcolor 3,0,7,0 




! grün 


15 


Setcolor 4,7,7,0 




\ gel b 


16 


Setcolor 5,7,0,7 




! vi ol ett 


17: 


Setcolor 6,4,0,4 




! dunkel vi ol ett 


18: 


Setcolor 7,0,0,7 




!dunkelblau (*) 


19: 


Setcolor 8,7,4,2 




! orange (*) 


20: 


Setcolor 15,7,7,7 




!Mauspfeil/ weiß 


21: 


DrehenX=0 


22: 


Level 7.= l 


23: 


Gamef 1 ag'/.^O 


24: 


Maus7.=0 


25: 


Tonf 1 agX=l 


26: 


Hai t%=0 


27: 


Return 


28: 


Procedure Start 


29: 


Get 0,0,319, 190, Bild* 


30: 


Deftext 3,0,0,6 


31: 


Text 0,198," 




Schwierigkeitsgrad: " 


32: 


Text 180, 198, "Verdrehungen: 


33: 


Gosub Spielstand 


34: 


Do 


35: 


Gamef 1 agX=0 


36: 


Put O,0,Bild$,O 


37: 


De-ftext 2,0,0,26 


38: 


Text 95,35, "Quadrat" 


39: 


Defline 1,5,2,2 


40: 


Color 4 


41: 


Box 70,5,229,42 


42: 


Box 25,50,275,183 


43: 


Deftext 7,0,0,8 


44: 


Text 60,70, "Bitte wählen 




Sie" 


45: 


Deftext 6,0,0,9 


46: 


Text 45,94, "Spiel Start" 


47: 


Text 45,114," 




Schwi er i gkei tsgrad " 


48: 


Text 45, 134, "Mauszeiger " 


49: 


Text 45, 154, "Ton ein" 


50: 


If Tonflag7.=0 


51: 


Text 45, 154, "Ton aus" 


52: 


Endi-f 


53: 


Text 45, 174, "Zurück zum 




Edi tor " 


54: 


Schleife: 


55 : 


Gosub Maus 


56: 


If X7.X35 And XX<265 


57: 


If YX>79 And YX<99 And 




K7.= 1 


58: 


Gosub Spiel 


59: 


Endif 


60: 


If Y7.>99 And Y7X119 And 




K7.= 1 


61: 


Gosub Stellen 


62: 


Endif 


63: 


If Y7.>119 And Y7.<139 




And K7.= 1 


64: 


Gosub Mauszeiger 


65: 


Endif 


66: 


If Y7.>139 And Y7.<159 




And K7.= 1 


67: 


Gosub Ton 


68: 


Endif 


69: 


Endif 


70: 


Exit If XX>35 And XX<265 



And Y7.M59 And YX<179 



And KX=1 

71: Gosub Warten 

72: If Gamef lagZ=0 

73: Goto Schleife 

74: Endif 

75: Loop 

76: Return 

77: Procedure Maus 

7B: Repeat 

79: Mouse X7.,Y7.,K7. 

80: Until KZOO 

81: If Tonflag7.= l And Gamef lag7.= 
0 

82: Sound 1,12,5,6,3 

83: Sound 1,0,0,0,0 

84: Endif 

85: Return 

86: Procedure Warten 

87s Repeat 
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88 


: K7.=Mousek 


89 


: Until KX=0 


90 


: Return 


91 


: Procedure Stellen 


92 


: If Level X=9 


93 


1 Level 7.= 1 


94 


: Else 


95 


Inc Level 7. 


96 


Endif 


97 


DrehenX=0 


98 


Gosub Spielstand 


99 


Return 


100 


Procedure Mauszeiger 


101. 


Add MausX, 2 


102 


If MausX=7 


103: 


MausX=0 


104 


Endif 


105: 


If Maus7.=2 


106; 


Inc MausX 


107: 


Endif 


108: 


Def mause MausX 


109: 


Return 


110: 


Procedure Ton 


111: 


Deftext 6,0,0,9 


112: 


If Tonflag7.= l 


113: 


Tonf lagX=0 


1 14: 


Text 45, 154, "Ton aus" 


115: 


Else 


1 16: 


Tonf lagX=l 


117: 


Text 45, 154, "Ton ein" 


118: 


Endif 


119: 


Return 


120: 


Procedure Spiel 


121 : 


Hidem 


122: 


Gosub Spielfeld 


123: 


Halt7.=0 


124: 


Gosub Verdrehen 


125: 


Showm 


126: 


Hai tX=3 


127: 


DrehenX=Level 7.* 15+35- 




(LevelX-4)'-2+ll 


128: 


Gamef 1 agX=l 


129: 


Gosub Spielstand 


130: 


A*="Ich habe jetzt "+ 




Str * ( 35+Le vel X* 1 5 ) + " 




Quadrate ! " 


131 : 


A$=A*+ " verdreht . Versuchen 




Sie dielQuadrate wieder 




zurückzudrehen. " 


132: 


A*=A*+"!Sie haben "+ 




Str*(DrehenX)+" 




Wendeversuche. " 


133: 


Alert 1,A*,1," okay ",BbbX 


134: 


BbbX=0 


135: 


Def mouse MausX 


136: 


Do 


137: 


Gosub Maus 


138: 


If KX=2 


139: 


A$="Wollen Sie wirklich! 




aufhöhren ?" 


140: 


Alert 2,A*,1," nein Ija" 




, BbbX 


141 : 


Def mouse MausX 


142: 


If BbbX=2 


143: 


Deftext 3,0,0,6 


144: 


Text 286,198, " " 


145: 


Endif 


146: 


Endif 


147: 


Exit If Bbb7.=2 


148: 


BbbX=0 


149: 


Hidem 


150: 


Gosub Auswerten 


151 : 


Farbf lagX=0 


152: 


Gosub Testen 


153: 


Showm 


154: 


Exit If DrehenX=0 


155: 


Exit If FarbflagX=0 


156: 


Loop 


157: 


If BbbX=0 


158: 


If DrehenX>=0 And 




Farbf lagX= 0 


159: 


A$="Bravo, iSie haben es 




geschafft ! " 


160: 


Alert 1,A*,1," okay ", 




BbbX 


161 : 


Else 


162: 


A*="Tut mir leid, Sie 




haben {keinen Versuch " 


163: 


A$=A*+"mehr . ! Probieren 




Sie vielleicht einen" 


164: 


A$=A*+" ! einfacheren 




Schwierigkeitsgrad. " 


165: 


Alert 1,A*,1," okay " , 






166: 


Deftext 3,0,0,6 


167: 


Text 286, 198, " " 


168: 


Endif 


169: 


Endif 


170: 


Def mouse MausX 


171: 


Return 


172: 


Procedure Spielfeld 





173 


Dii(- n n Di 1 M«r r\ 

rUT_ \J , U , tJl 1 , y 


174 




175 


Tlo-f Tinea 1 *? """> 


176 


Rnv ~K T1 A 1B7 

DLIÄ 0,O,^-10, J.Ö/ 


177 


Pi a i 4- i, 4- D f\ r_ 

uet teX X. □,U-U ) o 


1 78 


t-"r-iF- flV — 1 T™ OO 


1 79 


Tex t 8 , AX*8+6 , " 




** * **#* * * 






180: 


IMeX L H /. 


181 : 


Return 


1 82: 


t~ rocEtJure Verdrehen 


183: 


For AX= 1 To 35+LevelX*15 




! max . 170 Verdrehungen 


184* 


PosK"/=Int (Rnd*36) +1 


185: 


PosyX=Int (Rnd*20)+1 


186: 


Gosub Drehen 


187: 


Next H/. 


188: 


Return 


189: 


Procedure Drehen 


1 90 : 


Graphniade 3 


£91: 


If TanflagX=l 


192: 


Sound 1 , Halt?., 3, 3,0 




Wave 1 ,Hal tX, 12 , 780, 0 


194: 


Endif 


195: 


Tex t S+B*Posx X , 1 4+S*Posy X , " * 


196: 


r ause Mal X. /. 


197: 


Text 16+B*PosxX, 14+B*PasyX, " 


19B" 


Pause HaltX 


1 99" 


Tex t 1 6+8*Posx X , 6+8*PasyX , " * 


200: 


Pause Halt'/. 


201: 


Tex t 8+B*Posx X , 6+B#FasyX , " * " 


202: 


Pause Haitz 


203: 


Tex t S*Posx X , 6+B*Posy X , " * " 


20-4: 


r ause riai x. /. 


205: 




*^06: 


räUSG riaiHA 


207; 


i ex t. ti*r osx /» , jiii+tJ+r osy/. , * 


2ÖSs 




209: 


Text 8+8*PosxX,22+8*PosyX, "* 


210: 


r ause Mdi t /. 


21 1 : 




212: 


Wave 0,0 


213: 


Graphmode l 


214 : 


Return 


215" 


Procedure. Auswerten 


216: 


ti v ■/ 1 ■=: /\rif4 vv/Trifl _ _a 

it a/. / id fina AA-i.-itj-4- Hno 






217: 


Dpktu V — Ti-i.4- / fVV D \ / Q \ 

rasx /.-Int l l A /. d } / a > 


218: 


r asy /.— int l (. Y /. — a / / al 


219: 


Gosub Drehen 


220: 


Gosub Warten 


221 : 


Dec DrehenX 




Gosub Spielstand 




Endif 


224: 


Keturn 




Procedure Testen 


226: 


For AX=3S Downto 1 


2<->7: 


r or ö/w—^.^. uown lc l 


.£.28: 


r aroe/.- r 01 nt (h/.*d+i , fct a* 






229; 


If Farbe/\ >Auf 1 aesungX 




rarutlagA-l 


231 : 




23" 7 ; 


Ne-^By 


233: 


i l i t r ar Dt i. ag/,- 1 




Ne:< t AX 




Return 


S£ s 


Procedure Spi el stand 




uettext o,u,u,o 


^38- 


tau <- 1 "^/I 1 OD 1 r-f. si—.l "/ 

i ex i_ i , i Vo , Levei /. 


239: 


i t urenen/. l o 




USt lex t o,<J,k/,a 


241 : 




242; 


i t ur ensn /. .-- — u Hno ur enen a<. = 






243: 








245; 


I f Drehen A^,0 


246: 


Deftext 3,0,0,6 


247: 


Endif 


248: 


Text 286, 198, " 


249: 


Text 286, 198, DrehenX 


250: 


Return 


251: 


Procedure E.nde 


252: 


Setcolor 0,7,7,7 


253: 


Setcolor 15,0,0,0 


254: 


Edit 


255: 




256: 


Return 


»Quadromania ST« 
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Tips&Tricks Atari ST 

Autostart für alle 



Äuf dem ST ließen sich bisher nur TOS- 
Programme aus dem Auto-Ordner starten. Bei 
GEM-Programmen traten Probleme auf. Das 
ist jetzt vorbei. Ein kleiner Trick in GFA-Basic 
macht's möglich. 

Bei den neuesten Versionen des GFA-Basic-Inter- 
preters und des GFA-Basic-Compilers werden 
Autostart-Programme mitgeliefert. Sie erhalten 
diese als registrierter Benutzer auch bei GFA im 
Update-Service. 

Die Autostarter sind Public Domain, dürfen also belie- 
big kopiert und weitergegeben werden. Der Vorteil die- 
ser Programme: Interpreter, Run-Only-Interpreter oder 
Compiler werden automatisch geladen und stehen so- 
mit unmittelbar nach dem Einlegen der Diskette zur Ver- 
fügung. Von Nachteil ist aber, daß eben nur diese drei 
GFA-Programme gestartet werden können. Versuche, 
andere Programme zu starten, haben das Löschen aller 
Programme im Auto-Ordner zur Folge. 

Der Autostarter kann nun aber als Besonderheit GEM- 
Programme starten. Der automatische Start von GEM- 
Programmen aus dem Auto-Ordner ist dagegen unmög- 
lich. GEM ist beim Aufruf von Programmen aus dem 
Auto-Ordner noch nicht installiert. 

Es gilt also, den Autostarter so zu modifizieren, daß be- 
liebige Programme gestartet werden. Dies erreichen 
Sie mit unseren folgenden zwei Programmen. 



Tippen Sie zunächst »Do Start. Bas« (Listing 1) ab. Das 

Programm muß sich vor dem Start zusammen mit einem 
der Autostarter (Basic.Prg, Basro.Prg oder Bcom.Prg) im 
Wurzelverzeichnis (also nicht in einem Ordner) der Dis- 
kette befinden. Nach dem Start von Do Start.Bas wird 

zuerst der Autostarter von der Diskette in eine Stringva- 
riable eingelesen. Anschließend stellt das Programm 
die Lage zweier wichtiger Zeichenketten im Autostarter 
fest. 

In der ersten Stringkette ist der Name des zu starten- 
den Programms enthalten. Hier muß natürlich der Na- 



Steckforief 



Programm: 


DO START.BAS 


Computer: 


Atari ST 


Checksummer: 




Sprache: 


GFA-Basic 2.0 




Steckbrief 


Programm: 


TRICK.PRG 


Computer: 


Atari ST 


Checksummer: 


MCI 


Sprache: 


Assembler 



Roboter- a slC h rn i 

Potentiom e ^ r itio nie- 
J Motoren- f^Dreh- 
S&Lf%Seinte^; 

M ° de „ ÄS .NF« 1 



■ Ibrigens^^ber^- 
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Atari ST Tips&Tricks 



1 : Openw 0 

2: A*="" 

3s I-f Ex ist ("A:\BCOM. PRG") Then 
4s FilH*="A:BCOM.PRG" > 

5s Endif 

6: I-f Exist("A:\BASIC.PRG"> Then 
7s File*="A:\BASIC.PRG" 

Bs Endif 

9s I-f Exist("As\BASRO.PRG") Then 
10s File*="A:\BASRO.PRG" 

Iis Endif 

12s Cls 

13: Open " I " ,#1 ,Fi 1 e* 

14s Repeat 

15: B*=Input*(l,#l) 
16: A*=A*+B* 



17: 


Until Eof(#l) 


18: 


Close #1 


19s 


Pos2=Instr (A*, "As \AUTO\*. *" ) 


20 s 


Positian^Instr ( A$ 9 " 




SFA_BCOM. PRG" ) 


21s 


If Position=0 Then 


22: 


Position=Instr (A*, " 




GFABASIC.PRG") 


23: 


Endif 


24: 


If Position=0 Then 


25: 


Position=Instr (A*, " 




GFABASRO.PRG") 


•2hl 


Endif 


27 s 


Input "Neuer Dateiname:", 




Name* 


2B: 


If Len<Name*><12 Then 







29 s 


Let Name*=Name*+String*(12- 




Len (Name*) ,Chr* (0) ) 


30 s 


Endif 


31s 


Mid* <A*,Pos2, 1 1 ) ="A: \AUTD\*. Z" 


32: 


Mid* (AS, Posi t i an , 1 2 ) =Name* 


33: 


Open "Q", #2, "START. PRG" 


34: 


Print #2,A$; 


35: 


Glase #2 


36: 


Void Inp(2) 


37: 


End 



Listing 1. Do Start.Bas modifiziert 

den Autostarter (Zeilennummern 
nicht abtippen) 



File: TRICK. PRS Lnge: 000096 



0001: 60 1A 00 00 00 3E 00 00 00 00 00 00 OF AO 00 00 BBC 

0002: 00 00 00 00 00 00 00 00 00 00 00 00 3F 3C 00 00 67D 

0003: 2F 3C 00 00 00 2C 3F 3C 00 3C 4E 41 SO 8F 4fl 40 241 

0004: 6B 12 33 CO 00 00 00 3C 3F 3A 00 IE 3F 3C 00 3E 64A 

0005: 4E 41 58 SF 42 67 4E 41 41 3A 5C 41 55 54 4F 5C ACE 

0006: 54 52 49 43 4B 2E 5A 00 00 00 00 00 00 06 12 00 948 

Listing 2. Trick.Prg trickst den Autostarter aus (bitte mit dem 
MCI eingeben) 



me des Programms eingesetzt werden, das Sie zukünf- 
tig »autostarten« wollen. Die zweite Zeichenkette stellt 
sich als Löschroutine dar, die die Aufgabe hat, alle Files 
im Auto-Ordner zu löschen, falls ein anderes Programm 
als Interpreter, Run-Only-Interpreter oder Compiler ge- 
startet werden soll. 

Do Start.Bas fragt Sie also nach dem genauen Na- 
men des zu startenden Programms und setzt diesen in 
den Autostarter ein. Diesen Namen (einschließlich des 
eventuellen Suchpfades) sollten Sie möglichst kurz an- 
geben, auf keinen Fall jedoch länger als acht Zeichen 
plus drei Zeichen für die Extension. Am besten fahren 
Sie, wenn Sie Ihr zu startendes Programm umbenennen: 
machen Sie zum Beispiel aus Wordplus.Prg einfach 
WP.prg. Hierzu dient das Menü »zeige Info« im Desktop. 
Eine genaue Anleitung zum Ändern entnehmen Sie Ih- 
rem Handbuch zum ST. 

Des weiteren ändert Do Start.Bas den Autostarter so 

um, daß nur noch Files im Auto-Ordner gelöscht wer- 
den, die die Endung ».Z« besitzen. Der modifizierte Star- 
ter wird als Start.Prg auf der Diskette gesichert. 

Schließlich benötigen Sie noch das Trick.Prg (Listing 
2). Dieses kopieren Sie nach dem Abtippen unbedingt 
zuerst in den Auto-Ordner der Boot-Diskette. Erst da- 
nach kopieren Sie Start.Prg in denselben Ordner. Hal- 
ten Sie diese Reihenfolge unbedingt ein. 

Trick.Prg hat lediglich die Aufgabe, ein File mit der 
Bezeichnung Trick.Z zu generieren, das der modifizier- 
te Autostarter dann löschen darf. Dieses File besteht nur 
aus dem Eintrag im Directory des Auto-Ordners und hat 
keine Länge. 

Schließlich müssen Sie nur noch Ihr zu startendes Pro- 
gramm auf die Boot-Diskette kopieren. Wenn Sie alles 
richtig gemacht haben befinden sich die Programme 
Trick.Prg und Start.Prg nun im Auto-Ordner und das An- 
wenderprogramm im Wurzelverzeichnis Ihrer Diskette. 
Dem bequemen und zeitsparenden Autostart von Mal- 
programmen, Dateiverwaltungen, Textverarbeitungen 
steht nun nichts mehr entgegen. Auch Programme, die 
Ressource-Files (Endung .RSC) nachladen, bereiten 
keine Schwierigkeiten. Gute Erfahrungen haben wir 
beispielsweise mit Ist Word und Monostar gemacht, bei 
denen wir den Autostart mittlerweile nicht mehr missen 
möchten. (Uwe Schmidt/Matthias Rosin/lg) 



Unentbehrlich: MCI 

Das Programm Trick.Prg müssen Sie mit dem 
Checksummenprogramm MCI eingeben, das Sie in 
der Ausgabe 5/87 der Happy-Computer finden. Wie 
bereits angekündigt, werden in Zukunft alle Listings 
in der Happy-Computer und dem 68000er-Magazin 
als MCI-Listings veröffentlicht. Gegen Einsendung 
eines ausreichend frankierten (1,30 Mark) und an sich 
selbst adressierten DIN-A5-Rückumschlags senden 
wir Ihnen auch gern eine Fotokopie des MCI-Check- 
summers zu. 





Tips und Tricks 
zu GFA-Bcasic gesucht 

GFA-Basic ist eine der mächtigsten und am weite- 
sten verbreiteten Programmiersprachen für den Ata- 
ri ST. Doch ohne die richtigen Programmierkniffe ist 
auch der beste Interpreter nur die Hälfte wert. 

Wir werden deshalb in Zukunft regelmäßig Tips 
und Tricks veröffentlichen, wie Sie optimal mit dem 
GFA-Basic-Interpreter oder Compiler umgehen. Da- 
bei sind wir natürlich auch auf Ihre Mithilfe angewie- 
sen. Schreiben Sie uns, wann immer Sie eine nützli- 
che Routine geschrieben oder eine Besonderheit 
entdeckt haben. Ob es sich dabei um eine Anleitung 
handelt, um spezielle Befehle sinnvoll einzusetzen, 
um einfacher mit Compiler oder Interpreter zu arbei- 
ten oder um Listings aus dem Bereich Tips und 
Tricks. Auch Hilfen für Ein- und Umsteiger sind ge- 
fragt, ebenso Basic-Übertragungen von anderen 
Computern. Machen Sie Ihr Know-how für alle Leser 
von Happy-Computer verfügbar, 

Bitte senden Sie uns nach Möglichkeit Programme 
auf Diskette, versehen mit einer ausführlichen, allge- 
meinverständlichen Anleitung. Sollten Sie keinen 
Drucker besitzen, so können Sie Texte ebenfalls auf 
Diskette, entweder im Ist Word-Format oder als 
ASCII-Datei, auf ST- oder IBM-PC-Diskette einrei- 
chen. Da uns in der Vergangenheit häufig geknickte 
Disketten erreichten, sollten Sie unbedingt sehr sta- 
bile Pappe für die Verpackung wählen! Und dann ab 
die Post an: 

Redaktion Happy-Computer 
z. Hd. Matthias Rosin 
Hans-Pinsel-Str. 2 
8013 Haar 
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Listing des Monats Atari XL/XE 



Tennisball im All 



Tennisbälle haben normalerweise nur etwas 
auf Tennisplätzen zu suchen. Wer hätte ge- 
dacht, daß so ein Ball auf eine atemberauben- 
de Reise gehen kann? Unser Listing des Mo- 
nats für Atari XL/XE beweist es. 

Sie erinnern sich? Als Boris Becker vor kurzer Zeit 
bei einem Spiel in Australien wütend einen Ball in 
die Menge schlug, der dann spurlos verschwand? 
Der Vorfall blieb bis auf ein paar Kommentare vom Sport- 
reporter fast unbeachtet. Der Balljunge warf einen neu- 
en Ball ins Spiel und das Match konnte ohne Verzöge- 
rung fortgesetzt werden. 

Der Einzige, der dem Vorfall größere Beachtung ge- 
schenkt hätte, wäre der Ball gewesen. Bälle sind aller- 
dings nicht besonders intelligent und deshalb interes- 
sierte ihn das Geschehen nicht weiter. 

Der Ball flog keinesfalls in die Menge und er wurde 
auch nicht von einem fanatischen Zuschauer als Erinne- 
rungsstück mitgenommen. Vielmehr flog er über die 
Zuschauermenge hinweg, immer höher, bis die Energie 
des Schlags verbraucht war, und er langsam wieder zu 
fallen begann. Er kam jedoch nie auf der Erde auf. 

Nach einer kurzen Flugzeit berührte er eine metalli- 
sche Fläche, prallte davon wieder ab, machte noch ein 
paar Hüpfer und blieb dann still liegen. Er befand sich 
hoch oben in den Wolken, abgeschirmt von allen 
Blicken. Vor ihm erstreckte sich eine schier endlos er- 
scheinende Fläche, die an mehreren Stellen von Lö- 
chern durchbrochen war. An anderen Stellen waren nur 
schmale Inseln vorhanden, so daß ein Ausrutschen den 
Absturz in die Tiefe bedeutet hätte. Das alles war neu, 
und wie alles Neue war es hochgradig interessant. Also 
mußte die Ebene untersucht werden. Da der Ball von al- 
leine aber nicht hüpfen, geschweige denn die Richtung 
verändern kann, müßte ihn jemand unterstützen. 



Und wer ist dazu am besten geeignet? Erraten! An die- 
ser Stelle greifen Sie ins Geschehen ein. Also, Compu- 
ter einschalten, Spiel laden, Joystick schnappen und los 
gehts. Vor dem Vergnügen steht jedoch erst ein wenig 
Tipparbeit. Das Listing ist allerdings aufgrund der sehr 
kompakten Programmierung in Maschinensprache 
nicht sehr lang. 

Damit Sie es eintippen können, haben wir es mit ei- 
nem Basic-Lader versehen. Tippen Sie das Basic-Pro- 
gramm ab, und speichern es auf Diskette, zum Beispiel 
unter dem Namen »JUMP. BAS«. Die kleinen Dreiecke im 
Listing stehen dabei für Leerzeichen. Starten Sie an- 
schließend das Programm. Wenn es dabei mit der Feh- 
lermeldung »Datenfehler in Zeile xxxx« abbricht, haben 
Sie in der betreffenden Zeile einen Tippfehler gemacht. 

Ist das Programm dann fehlerfrei abgelaufen, haben 
Sie auf der Diskette ein File mit dem Namen »JUMP. 
COM« stehen. Das File stellt das eigentliche Spiel dar. 
Sie laden es mit der Funktion »L« (»Binary Load«) vom 
DOS aus. Unter Happy-DOS brauchen Sie bloß »JUMP« 
einzugeben. 

Durch < START > oder durch Druck auf den Feuer- 
knopf beginnt das Spiel. Sie haben drei Leben zur Verfü- 
gung, um möglichst viel von der Landschaft zu erkun- 
den. Wenn Sie anstelle dessen < OPTION > drücken, 
befinden Sie sich in einem Trainer-Modus, bei dem vor- 
überfliegende Pfeile wirkungslos sind. Guten Sprung! 

(Detlef Johannsen/hf) 



Steckbrief 



Programm: 


Jump 


Computer: 


Atari XL/XE 


Eingabehilfe: 


Prüfsummer 



Datenträger: Diskette 



1000 DIM DATEI* (20) , DATEN* (69) , UM* (70) 
1010 UM*(1)='V , :UM*(70)="*" 
1020 FOR 1=0 TO 9: UM* (1+48, 1+48) =CHR*(I) 
sNEXT I 

1030 FOR 1=0 TO 5:UM*(I+65,I+65)=CHR*(I+ 
10):NEXT I 

1040 READ DATEI*!? " Ich^er zeuge. DAT 

EI*:? :ZE=2000 

1050 OFEN #1,8,0, DATEI* 

1060 READ DATEN*: SU=0t ZE=ZE+5: ? CHR*(2B) 

f "Zeile:*";ZE 

1070 FOR 1=1 TO 68 STEP 2 

1080 IF DATEN* (1,1)="." THEN 1150 

1090 HI=ASC(UM*(ASC(DATEN*(I) ) ) )*16 

1 100 LO=ASC (UM* (ASC (DATEN* < 1 + 1 ) ) > > 

1110 SE=HI+LO:PUT # 1 , GE : SU=SU+BE 

1120 NEXT I:SU=SU+ZE 

1130 IF SU- INT (SU/26) #26+65<>ASC (DATEN* ( 
69)) THEN ? "Datenfehler^in^ZeileV^ZE^ 



ND 

1140 SOTO 1060 

1150 IF SU-INT (SU/26) «26+650ASC (DATEN* ( 
I+l>) THEN ? "Datenfehler*in*Zeile*"(ZE: 
END 

1160 ? :? "Fertig. " : END 
Listing des Monats »Jump« für Atari XL/XE 



<FT> 
<LH> 

<UU> 

<LI> 

<BU> 
<JJ> 

<NH> 
<KD> 
<KH> 
<AO> 
<HE> 
<KD> 
<TK> 



<OY> 
<QC> 



<NT> 
<QT> 



2000 DATA^D: JUMP.COM <xy> 
2005 DATA*FFFF0092FFA44890ADD94890ADD940 
B0A2D951B0A2D94890ADD94890ADD935B0A2D9V <LJ> 
2010 D AT A*2F80A2D92A6C90D92 A6C90D92F80A2 
D93980A2D93590ADD93590ADD94B80A2D94880B <SV> 
2015 D ATA* A2D93590ADD93590ADD92F A2C 1 D939 
A2C 1 D93590ADD92F90ADD92A80A2D92880A2D9 1 < ED > 
2020 DATA*2390ADD92A90ADD928A2C 1 D92FA2C 1 
D92A90ADD92A90ADD92A90ADD92A90ADD92390P <DJ> 
2025 DATA*ADD92390ADD9 1 FA2C 1 D928A2C 1 D923 
90ADD92390ADD9286CB0D92F6C80D92A6C90D9D < QZ > 
2030 DATA*356C90D92FS0A2D939B0A2D93590AD 
D93590ADD94BA2C 1 D94890 ADD940B0 A2D948B0B <NH> 
2035 DATA*A2D93590ADD94S90ADD94080A2D948 
80 A2D93590 ADD94890 ADD94080A2D94880A2D9C <DF> 
2040 DATA*2F80A2D92FA2C 1 D92F90C 1 E62F90C 1 
E62F90C 1 E62F90C 1 E62F80A2D92F80A2D92A6CL < CX > 
2045 DATA*90D9356C90D9286CS0D92S6CB0D92A 
6C90D9356C90D9 1 F80A2D92880A2D92390ADD9X < BD > 
2050 DATA*2A90ADD928A2C 1 D92AA2C 1 D92F90AD 
D93590 ADD92F80A2D92 AB0 A2D9286C90D92A6CW < ZH > 
2055 DATA..90D92F80A2D93580A2D93990ADD935 
90ADD92FA2C 1 D935A2C 1 D93980A2D940B0A2D9P KBD > 
2060 DATA*4S90ADD94S90ADD94B80A2D94880A2 
D94890ADD94B90ADD940A2C 1 D95 1 A2C 1 D94890X <XE> 
2065 DATA*ADD94890ADD935B0A2D92F80A2D92A 
6C90D92 A6C90D92F80 A2D93980A2D93590 ADD9M < EZ > 
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2070 DATA*3590ADD9480000D9480000D92A6C90 
D9396C90D9350000D9480000D92390ADD93990L <HI> 
2075 DATA*ADD9350000D9480000D92A6C90D939 
6C90D9350000D94B0000D9400000D94B0000D9Q < IC> 
2080 DATA*4080A2D940B0A2D900000000000000 
04040404020202020302020 100000000000000E <KR> 
2085 DATA*000000000B08040404040404040409 
0C0 1 0603000000000000000404040404040404M <FH> 
2090 D AT A*04040808090C0 1 0603000000000000 
040404040408080808080808040402050 1 0603K <XC> 
2095 D AT A*00000000000008080808080404020 1 
000000000 l 040 l 0603000000000000000804038 <IK> 
2 1 00 D AT A*000000000000000000030409060300 
00000000001900000000000000 l 020404080809D <PI> 
2 1 05 D AT A*0C090603000000000000000 1 020404 
08080808080808040504050603000000000000T <BG> 
2110 DATA*080B0B0S0808040404040404040504 
05060300000000000008080804040404040404Z <AD> 
2115 DATA*040404090C09060300000000000404 
040404040404040404080808090C0906030000L < AT > 
2120 D AT A*000000040404040408080808080808 
040402050 1 0603000000000000080808080804D < JA > 
2125 D AT A*04020 1 000000000 10401 0603000000 
00000000134020 1 00000000000000000 1 0605060 <BR> 
2 1 30 DAT A^.030000000000000000000000000000 
000 1 020404090C0 1 0603000000000000000000R <YF> 
2 1 35 DATA*000 1 020204040404020202020 1 0000 
00000000000000000000202020305070507060H <BH> 
2140 D ATA*60C0800000000000000000000000 1 0 
1 02020283828283830 1 0702060C00000000000 A <RG> 
2 1 45 DAT A*00002020202020202B3B2B28 183010 
702060C00000000000002020202020 1010141CX <ZU> 
21 50 DATA* 1 4 1 4 1 C382858D03060C00000000000 
00 101010101 020244C84 1 40C 1 828 1 B503060C0Q < EU > 
2155 D ATA*00000000000000 1 020C00000040C04 
1 44C 1 828D8703060C000000000000000000000P <H0> 
21 60 D AT A*0000048C44346C 1 838 1 8503060C000 
00000000000080402020 10141C141 45C 1 8283BK <AH> 
2 1 65 DATA*703060C0000000000000 1010101010 
1 0242C24346C382838703060C0000000000000X < L L > 
2 1 70 DATA* 10101 0202020242C24346C3828 1 850 
3060C0000000000020202020202020242C2434 I <J0> 
2 1 75 DAT A*5C 1 838 1 8503060C000000000002020 
202020 1 0 1 0 1 4 1 C 1 4 1 4 1 C382858D03060C00000B < Y Z > 
2 1 80 DATA*00000000 101010101 020244CB4 1 40C 
1 828 1 8503060C0000000000000002040800000U < YC> 
2185 DAT A*08 1 80828 1 83090702060C000000000 
00000000000000000008 1 888683830 1 0702060 J < QD > 
2190 DAT A*C00000000000000000000080404030 
303030706060C080000000000000000000000 IX < GO > 
2 1 95 DAT A*0307070F0F0F0F0F0F060703000000 
0000000000000307070F0F0F 1F1F1F1F1F1 F0FH <AH > 
2200 DATA*0E0B060 1 000000000000000307070F 
0F0F1F1F1F1F1F1 F0F0E0B060 1 000000000000F < A I > 
2205 DATA*03070F0F 1 F 1 F 1 F3F3F3F3F3F3F 1F1F 
1 F0B0E0 1 000000000003070F0F 1 F 1 F 1 F3F3F3FL <EH> 
2210 D AT A*3F3F3F 1 F 1 F 1 E0B0E0 1 000000000003 
070F0F1F1F1 F3F3F3F3F3F3F 1 F 1 F 1 F0F0E0 1 00F <BD> 
2215 DATA*0000000003070F0F 1 F 1 F 1 F3F3F3F3F 
3F3F1F1F1 E0B0E0 1 000000000003070F0F 1F1FI <PS> 
2220 DAT A* 1 F3F3F3F3F3F3F 1 F 1 F 1 E0F0E050000 
00000003070F0F 1 F 1 F 1 F3F3F3F3F3F3F 1F1F1EE <VZ> 
2225 DATA*0F0E05000000000003070F0F 1F1F1F 
3F3F3F3F3F3F 1F1F1 E0B0E0 1 00000000000307M < RD > 
2230 DAT A*0F0F 1 F 1 F 1 F3F3F3F3F3F3F 1 F 1 F 1 E0B 
0E0 1 000000000003070F0F 1 F 1 F 1 F3F3F3F3F3F V <KJ> 
2235 D ATA*3F 1F1F1F0B0E01 000000000003070F 
0F 1 F 1 F 1 F3F3F3F3F3F3F 1 F 1 F 1 E0B0E0 1 000000E < HE > 
2240 D AT A*0000000307070F0F0F 1F1F1F1F1F1F 
0F0F0B060 1 000000000000000307070F0F0F 1 FD <SJ> 
2245 DATA*1F1F1F1F1 F0F0E0B060 1 0000000000 
000000000 1 0307070F0F0F0F0F0F0707030000Y <PE> 
2250 DATA*00000000000000000080C0E0E0F0E0 
E0C0E0C0C0C040000000000000000000C0E0E0U < FX > 
2255 DATA*F0F0F0FBF0E0F0F0E0E0F090C08000 
000000000000C0E0E0F0F0F0F8F0E0F0F0F0D0Z < AS > 
2260 DATA*F090C080000000000000C0E0F0F0F8 
FBF8FCF8F0F8F8F0E0F0E0A0C0800000000000U < Y P > 



2265 DATA*C0E0F0F0F8FBF8FCFBF0F8E8F0E0D0 
E0A0C0800000000000C0E0F0F0F8F8F8FCF8F0P < UR > 
2270 DATA*F8E8B0E0D0E0A0D0800000000000C0 
E0F0F0F8F8F8FCF8F0F8E8B0F0D0F0B0D08000U < UX > 
2275 DATA*00000000C0E0F0F0FBF8FSFCFBF0F8 
F8B0F0F0E0A0E0 A00000000000C0E0F0F0F8FBL < VZ > 
2280 DATA*F8FCFBF0FBESB0E0F0E0A0E0A00000 
000000C0E0F0F0F8F8F8FCFBF0FBE8B0E0F0F0E <GV> 
2285 DATA*B0D0800000000000C0E0F0F0FBF8FB 
FCF8F0F8E8B0F0D0F0B0D0800000000000C0E0N <HD> 
2290 DATA*F0F0FBF8F8FCF8F0F8F8F0E0F0E0A0 
C0800000000000C0E0F0F0F8F8FBFCF8F0F8E8W <RB> 
2295 DATA*F0E0D0E0A0C080000000000000C0E0 
E0F0F0F0F8F0E0F0D0E0C0E0C0E08000000000R <HC> 
2300 DATA*000000C0E0E0F0F0F0F8F0E0F0D0E0 
E0F090C08000000000000000000080C0E0E0F0M < LY > 
2305 DATA*E0E0E0E0C0C0C04000000000000000 
00004242A4A4E4A4646C 1 0 1 000000000000000T < UV > 
23 1 0 DATA*24642464244228 1 000000000000000 
00246424424220080000000000000000000024A < JP > 
23 1 5 DATA*2400 1 0000000000000000000000000 
0024101 000000000000000000000000000 181 8N < HG > 
2320 DATA*0000000000000000000000000000 1 8 
0000000000000000000000000000101 8080000A <NC> 
2325 DATA*00000000000000000000 1 0383C 1 C08 
00000000000000000000 183C6642663C180000T <HH> 
2330 DATA*000000000000 1 824424A5A524224 1 8 
00000000000000 1 00442 1 8425A002408000000S < JH > 
2335 D AT A*00000000 1 004502864 1 60820080000 
00000000 1 83C7E7E7F7F3F7F3F362C08000000G <KT> 
2340 DATA*0000 1 83C7E3E7E3E7E7E 1 408000000 
00000000183C3E7E7E7E1C1 000000000000000 1 < RC> 
2345 D AT A.JB000 1 83C3C3C2C 1 800000000000000 
00000000 1 B3C3C080000000000000000000000N <PQ> 
2350 D AT A*000008 1 00000000000000000000000 
000000 1 0000000000000000000000000000000 Y < DQ > 
2355 DATA*000000000000000000000000000000 
00000000000000000000000000000000000000P < VR > 
2360 DATA*000000000000000000000000000000 
00000000000000000000000000000000000000U < KF > 
2365 DATA*Q00000000000000000000000000000 
00000000000000000000000000000000000000 Z < AE > 
2370 DATA*000000000000000000000000000000 
00000000000000000000000000000000000000E < WS > 
2375 DATA*000000000000000000000000000000 
00000000000000000000000000000000000000 J < DR > 
2380 DATA*000000000000000000000000000000 
000000000000000000 181818181 800 181 80000 A <GS> 
2385 DATA*000000000000000000000000000000 
00000000000000000000000000000000000000T <IE> 
2390 DAT A*0000000000000000000000000C 1 830 
303030 1 80C30 1 80C0C0C0C 1 830000000000000M <HU> 
2395 DATA*000000000000000000000000000000 
00000000000000000000000000000000001818Z <BT> 
2400 DATA*00000000000000007CFEEEEEEEEEFE 
7C 1 B387BF83B38FEFE7CFEC6063C70FEFE7CFEE < SV > 
2405 D AT A*CE 1 C 1 CCEFE7C 1 C3C7CECFEFE 1C1CFE 
FEE0FC7E06FE7C 1 C3870FCFEEEFE7CFEFE0E0ET <RL> 
24 1 0 DATA* 1 C3838387CFEEE7CEEEEFE7C7CFEEE 
FE7E 1 C38700000 1 80000 1 800000000000000006 < DY > 
2415 DATA*000000000000000000000000000000 
00000000000000000000000000000000000000X < TP > 
2420 DATA*00000000000000007CFEEEEEFEFEEE 
EEFCFEEEFCEEEEFEFC7CFEEEE0EEEEFE7CFBFCG < HP > 
2425 DATA*EEEEEEEEFCF8FEFEE0FCFCE0FEFEFE 
FEE0FCFCE0E0E07EEEE0EEEEEEFE7EEEEEEEFED < SG > 
2430 DATA*EEEEEEEEFEFE38383838FEFE7E7E0E 
0E0EEEFE7CE6EEFCFBF8FCEEE6E0E0E0E0E0E0Y < CÖ > 
2435 DATA*FEFEC6EEFEFEFED6C6C6E6E6F6FEFE 
EEE6E67CFEEEEEEEEEFE7CFCFEEEEEFEFCE0E0L <TE> 
2440 DATA*7CFEEEEEEEECFE7AFCFEEEEEFCFCEE 
E67CFCE0FC7E0EFEFCFEFE3B383B3B3838EEEE Y <HE> 
2445 DATA*EEEEEEEEFE7CEEEEEEEEEEEE7C38C6 
C6D6FEFEFEEEC6C6EE6C383B6CEEC6EEEEEEEE J < H J > 
2450 DAT A*7C3B3B3BFEFE0E 1 C3870FEFE000000 
00000000000000000000000000000000000000Q < DV > 
2455 DATA*000000000000000000000000000000 
000000FFD5DDD 1 D5D5D5D5FF55555555555045Q < AU > 
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2460 DATA*FF5555555555055DFC547444545454 
54D5D4D4D4D4D4D4D5 1 5555555555555 1 55755Q <CJ> 
2465 DATA*55555555555754D4D4D4D4D4D454D5 
D5D5D5DDD1 D500455F5555555555005DF55555P <RH> 
2470 DATA*555555005454545474445400CFCFCF 
CF00CFCFCFE8E8E8EAEAEEE2EA00FFEAEEE2EAB <HD> 
2475 DATA*EAE8AAAAAA2BBEAAAAAA00FFAAAAAA 
822B A AE8E8E8A8 ABB888A800FCA8B888A8 A8E8S <CH> 
2480 DATA-.000000000000000000000000000000 
00000000000000000000000000000000003000« < GV > 
2485 DATA^000000000000000000000000000000 
0000000000000000000000000000000B000000P < HC > 
2490 DATA*000000000000000000000000000000 
00000000000000000000000000000000000000U < KQ > 
2495 DATA*0000FF7F03030303637B7F020000E7 
6363636363637B7F020000E763777F5B436363X < XB > 
2500 DATA*632 1 0000FE7F43637F7F4060602000 
003C 1 C 1 C 1 C 1 C04003C 1 C04FF8 1 FD050505E5BDP <SR> 
2505 DATA^B 1 7E0000E7A5A5A5A5A5A5BD8 1 7E00 
00E7 A5998 1 A5BDA5A5 A5E70000FE83BDA5BD8 IM < CH > 
25 1 0 DATA -.BEA0A0E000003C242424243C003C24 
3C000000000000000000000000000000000000 y <PF> 
25 1 5 DATA^.000000000000000000000000000000 

000000000000000000000000000000000000007 <HH> 
2520 DATA*000000000000000000000000000000 
00000000000000000000000000000000000000 y < HB > 
2525 DATA*000000000000000000000000000000 
00000000000000000000000000000000000000D <LA> 
2530 DATA*000000000000000000000000000000 
000000009B5D3E5D3E5D2 A7F55 1 C 1 C08080808 Y <BU> 
2535 D AT A*08000B000800080008 1 422 1 4080008 
0D0 1010001 03 1703111020214041 2224424 1 20 Y <HB> 
2540 DATA*21 0223462042224 1 220 1 4002200540 
022201462311087F7C7871 63470F 1 F00207402O < ZU > 
2545 DATA^.0052002 1 52205 1 204 1 026 1026 1 0 1 60 
32 1 80C000400040004000A00 1 5002A00 1 5000 AR <EL> 
2550 DATA*00040002050A0508 1 00 1 1 022204 1 00 
22 1 02 1 4204422 1 2244024 1 003F333F00 1 E000C I < UT > 
2555 DATA*2C20 1 3032300 1021420 151 08 111001 
63025039605 1 205 1 224 1 4522 1 7000808 1 4227FD < QZ > 
2560 D AT A-.4 1 554949554 1 7F007F22 141 C00080B 
000 1 0002000400080B000 1 000200 1 4204020400 < 8 I > 
2565 D AT A *2048 1 C366B552 A552255002 A00 1 400 
0800020A00483030000730230 1 00520 1 22 1 1 20E < HA > 
2570 DATA ^095009404929 1011 6C553900555557 
1 5550070380002000 1 00220 120432340442200U <UI> 
2575 DAT A*420520054205224 1 03620808080008 
22262A32000808080800 1 C2222 1 C0022362A22M <HU> 
2580 D AT A*007F080008 1 C0800 1 0002040602008 
0004606465600 1 02050A 1 40A040408304 121420 <GI> 
2585 DATAj.3 141 620 141 222202 141 4080808 1 422 
4 1 22 1 408082A 1 408 1 C 1 C7F5D5D5D7F00000000X <UV> 
2590 DATA*000000000000000000000000080808 
080808080008000000 1 E222222 1 E0202020000O <TC> 
2595 DATA*22362A2A2222220000222222222222 
1 C00003E222220202022 1 C0000000000000000 J < EH > 
2600 DATA-.000000000000000000000000000000 
0000000000000000000000000000000000B000A <AZ> 
2605 DATA^000000000000000000000000000000 
00000000000000009400B4809500B6009700B5G < UK > 
2610 DATA*809800B7009400B4809500B6009700 
B5809B00B7CCCCCCCCCCCCCC4D4F5 1 4D4F5 14DE < SH > 
26 1 5 DAT A*4F5 1 4D4F5 14D4F514D4F51 CCCCCCCC 
CCCCCC504C4 1 5454323ACCCCCCCCCCCCCC4E50D < HL > 
2620 DATA*524E50524E50524E50524E50524E50 
52CCCCCCCCCCCC68457070704600B000060006V <FQ> 
2625 DATA*0086706400B 1 242424242424242424 
242424242424242424847070704 1 68A2544558E < L I > 
2630 DATA*543 A0049C98900006AB5ED304 1 0000 
0088C848F3E3EFF2E500 1 A005050505000AC 1 AY < ZS > 
2635 DATA*502829272833232F322500 1 A005050 
50509 1 99989600644EEAEFE8E 1 EEEEF3E5EE00R < AV > 
2640 DATA*0000000000000000CCCCCCCCCCCCCC 
4D4F5 1 4D4F5 1 4D4F5 1 4D4F5 1 4D4F5 1 4D4F5 1 CCA < H P > 
2645 DATA*CCCCCCCCCCCC00000000000 1 020404 
00000000000208040C0E040603000000000000H <YG > 
2650 DATA^.0000030 10101 000000000000000003 
00020000000000000000000000000 i 00000000K <UU> 
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2655 D AT A*000 101 000200000000000000000000 
000000000 1 00000000000 101 00000000000000« < qe > 
2660 DATA^.000000000000000000000000000000 
0 1 000000000000000000000000008080402020D < AK> 
2665 DATA *20 1010101 02020A020A060C0000000 
000000000000000080804060204080808000B0R <HP> 
2670 DATA*0000000000000000000000000000S0 
8000008000000000000000000000000B000000M < ZI > 
2675 DATA A 000000008080000080000000000000 
00000000000000000000000000000000000000R < HV > 
2680 DAT A*0000000000000000000003070F2F 1 7 
072707230903 1 30 1 0F0F 1 7050F050000000000 J < LR > 
2685 DATA^.0000 1 2030303 110121000020040 101 
002 1 030000000000000000000000030 101 0400M < HP > 
2690 DATAi000000 1 1 0 1 0 1 0302 1 0000000000000 
00000000020 1 0900000000002 1 050 1 00000020F <BT> 
2695 D AT A*00000000000000080020000 1 000000 
00000 1 0 1 00 1 00000000000000080C0E0F0F0F0O <RF> 
2700 DATA*FSFBF8FCFCFCFCF8F878F070A00000 
0000000000000080C0E0E0F0F0F070F0F0E0E0W < A6 > 
2705 DATA*C00000000000000000000000000080 
80C0C04060E0C0C08000000000000000000000N < IH > 
2710 D AT A*0000000080B0C0C04040C0C0000000 
000000000000000000000000000000000000000 < qh > 
27 1 S DAT A* 000000000000000000000000000000 

00000000000000000000000000000Q00000000|_ < J J > 
2720 DATA*000000000000000000A5B4B2A99C85 
E3 A90085E2B5E48D A2B2 A98C85E5 A9048D A3B2U < SZ > 
2725 D AT A*20D 1 ADA90 1 8D83B2 A9038D0FD2 A900 
8D72B22043ADA9008DC802 A9 1 88DC402 A9BE8DH <HC> 
2730 DATA*C502A9568DC602A9AA8DC702A900BD 
2F028D8EB2A99C8DF402A9688D3002A9 A28D3 1 P <HH> 
2735 DATA A 02 A9A4BD0002 A9AE8D0 1 02 A9C085F2 
8D7BB2A9A 1 85F38D7CB2A98DSD79B2A9A 1 8D7AM <HJ> 
2740 DATA*B2A9CCBD76B2A9S085F7A96085F6A9 
8385F9A98085F820ECB 1 A9008D2F028D72B28DN <HU> 
2745 DAT A*8EB28D74B28D8 1 B28D82B28D88B2A9 
038D77B2203EAAADBDB2C900D0 1 CA9FFB5FEA9R <YG> 
2750 DATA*7F85FFSD8DB2A99685FAA9A285FBA0 
41B1FA91 FE88D0F9A90085F88D76B285F6A9B4 Z < AD > 
2755 DATA*B5F7A9BAB5F920ECB 1 A9038D 1 DD0A9 
B48D07D4A9018D08D08D09D08D0AD08D0BD0A9R <50> 
2760 DATA*558D0CD0A9428D9EB2A9AE8D9FB2A9 
008D7DB2A03AB9FF9E8DA4B2A208ADA5B20A8DA <0H> 
2765 DAT A* A5B2 ADA4B2290 1 0DA5B28D A5B2ADA4 
B2186A8DA4B2CAD0E3ADA5B2992AB688D0D2A0Z <RL> 
2770 DATAa.3AB9399F8DA4B2A208ADA5B20A8DA5 
B2 ADA4B2290 1 0DA5B28DA5B2ADA4B2 1 86A8DA4L < HX > 
2775 DATA*B2CAD0E3ADA5B299AAB68BD0D2A03A 
B9FF9E992AB788D0F7A03AB9399F99AAB7B8D0V <YF > 
2780 DATA*F7A92D8D2F02A9FF8D0ED4A95ASDC0 
02A9568DC1 02A9FA8DC202A9F68DC302A90085Q <HH> 
2785 DATA*E08DA 1 B2A99285E 1 A92 1 SD6F022023 
AB38AD8CB2ED8AB2F005B00F2056AB38AD8BB2Z < I Ö > 
2790 DATA*EDB9B2B0032056ABA9008D9CB28D99 
B28D89B28D8AB2A9538D 1 F804CFAA600000000T <GB> 
2795 DAT A ^.0000000000000000 AD 1 FD0C903F00E 
C906F00FAD8402C900D0CC4C 1 4A7A90 1 8DA 1 B2B <UV> 
2800 DATA*2023ABA9808DB 1 B2A9A 1 8DB2B2A90 1 
8D9CB22043ADA90 1 SDB4B2A2 1 0A00FA9 1 085F AT < JH > 
2805 DATA*A9A2B5FBA90085FEA9A2B5FFB 1 FA9 1 
FE88C AD0F8A9F48DC0028DC202A9FA8DC 1 028DY < H J > 
28 1 0 D AT A*C302 A93D8D2F02 A97F85F2A9B285F3 
A90085F885F68D76B2A9B385F7A9BA85F920ECQ <BF> 
28 1 5 DATA*B 1 A9B08D07D4 A9CC8D76B2 A9B085F7 
A96085F6A98385F9 A98085F820ECB 1 A9008D2F I < TO > 
2820 D AT A*028D72 B28D8EB28D74B28DB 1 B28D82 
B28D88B2 A9038D77B2203EAAA93D8D2F02 A980W <FS> 
2825 DATA*85F2A9 A 1 85F3A900BD79B2A99F8D7A 
B2A900A2089D07D0CAD0FAA900BD73B28D9BB2K < ZF > 
2830 DATA«.SD 1 ED0A90 1 8D8FB2A9008D0ED4A99C 
85E5A90085E285E48DA2B2A98C85E3A9048DA3O <L0> 
2835 DATA-B2 A9FF8D0ED420D 1 ADA5F2C97 AD0 1 0 
ADB 1 B28D7BB285F2ADB2B28D7CB285F3AD73B2L <XP> 
2840 D AT A*C9CBD0E3 A97S8D7EB28D00D08D0 1 D0 
1 869088D02D08D03D0AACACA8A8D07D0A9C88DN <FQ> 
2845 DATA*. 9 1 B2A90 1 8D7DB2 A002 AD73B2CD73B2 
F0FB88D0F5AD99B28D83B2 A90 1 8D09D2A9008D I <CJ> 

»Jump« für Atari XL/XE (Fortsetzung) 
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Atari XL/XE Listing des Monats 



2850 DATA*.08D2A9FE8D00D2A9FFSD02D2A9558D 
0CD0AD7EB238E93E 1 008A93EBD7EB24C92A8C9V < GZ > 
285S DATA*.743005A9B28D7EB2AD7EB28D00D08D 
0 1 D0 1 869088D02D08D03D0A AC ACA8A8D07D0ADB < GU > 
2860 DATA*. 9 1 B238E94D 1 008A94D8D9 1 B24CC4A8 
C97F300SA9CB8D9 1 B238A9 1 0ED84B2290F6A09 J < S I > 
286S D AT A*. A0BD0 1 D2297F8D03D2AD84B2C90 1 D0 
1 1 ADBFB2290 1 C90 1 F008 A90 1 8D9 AB24C4E AD20L <XH> 
2870 DATA*.23 ABAD 1 FD0C903D005A9008D90B2AD 
9 1 B28D02A2BD06A2BD0A A2BD0EA2AD96B24DB0L <IF> 
2875 DATA*.B28D04D2AD97B2C900D00CAD0AD229 
7FC94CD003204BA9 ADA 1 B2C90 1 F007AD9BB2C9S < ÖT > 
2880 DATA*.00D0034C79ABA9008D9AB2SD9BB28D 
1 ED08D07D04C4EADAD0AD2297FC902F00 1 60A9O <NM> 
2885 DATA*. A38D05D2AD0AD2297F 1 B694E AA8D98 
B2A000 AD7EB2 101 BA9A685D0A9B285D 1 A9FF8DN <GT> 
2890 DATA*.B0B2A940BD96B2BD04D0BD05D04CA0 
A9 A9 AB85D0A9B285D 1 A9008DB0B2 A9BC8D96B20 <PU> 
2895 D AT A*.SD04D08D05D0BD00B3 1 1 D09D00B3E8 
C8BD00B3 1 1 D09D00B3E8C8BD00B3 1 1 D09D00B3 Z <VB> 
2900 DATA*.E8C8BD00B31 1D09D00B3E8CBBD00B3 
1 1 D09D00B3A90 1 BD97B260 A000B 1 FE48C8B 1 FE I < DD > 
2905 DAT A*.889 1 FEC8C8CC86B2D0F468889 1 FE60 
A2 1 8A0 1 8A9009 1 EE88B 1 FC9 1 EE88CAD0F89 1 EEK < EQ > 
29 1 0 DATA*.60A94DA0009 1 ECC8A94F9 1 ECC8A95 1 
9 1 ECA020A94E9 1 ECC8A9509 1 ECC8A9529 1 EC60X < JS > 
29 1 5 DAT A*.8EB7B2 A206200 1 AAA5EC 1 B690385EC 
A5ED690085EDC AD0EDAE87B260A9008D0ED4 A2M <RE> 
2<>2to DATA*.0DA9A785ECA98085ED2022AAA5EC 1 8 
692EB5ECA5ED690085EDCAD0EDA9FF8D0ED460T < VY > 
2925 DATA*.A9C7B5ECA9B085ED2022AAA9B7B5EC 
2022AA60A9A785ECA980B5ED2022AA60A9A48DA < L U > 
2930 DAT A*.0 1 D28D03D28D05D28D07D2A9088DA0 
B2 A000B 1 E08D00D2A003B 1 E08D02D288B 1 E08DO <AP> 
2935 DAT A*.04D288B 1 E08D06D2C900D0068D05D2 
8D07D2A5E0 1 8690485E0A5E 1 690085E 1 C994F0F <XU> 
2940 DATA*.01 60 A99285E 1 A90085E060CE A0B2AD 
A0B2 1 0032085AAAD9EB28D00D08D0 1 D0AD9FB2X < Oft > 
2945 DATA*.8D02D08D03D0AD9DB2C90 1 D0 1 4CE9F 
B2EE9EB2AD9EB2C970F00 1 60A9008D9DB260EEP < HR > 
2950 DATA*.9FB2CE9EB2AD9EB2C93CF00 1 60 A90 1 
8D9DB260 AD89B2290F 1 86950BD 1 B80AD89B229C < HY > 
2955 D AT A*.F06A6 A6A6A69508D 1 A80AD8 AB2290F 
1 869508D 1 980AD8AB229F06 A6A6A6 A69508D 1 8 J <S0> 
2960 D AT A*.B060 AD 1 8808D2C80AD 1 9808D2D80AD 
1 A808D2E80 AD 1 B808D2F80AD89B28D8BB2ADSAL < FU > 
2965 D ATA*.B28DBCB260A90 1 8D90B2A90085F885 
F68D76B2A9B385F7 A9BA85F920ECB 1 A9008D00N <HU> 
2970 DATA*.A2A9788D04A2A9F08D08A2A96B8D0C 
A2A9A38D0 1 A28D05A28D09A2A9A48D0DA2A205K <ZL> 
2975 DAT A*.8E84B220E7AD 1 8AD00 A269 1 88D00A2 
AD0 1 A269008D0 1 A2 1 8AD04A269 1 88D04 A2 AD05B < 10 > 
2980 DATA*. A269008D05A2 1 8AD08A269 1 88D08 A2 
AD09A269008D09A2 1 8AD0CA269 1 88D0C A2AD0DO < TT > 
2985 DATA*. A269008D0DA2 AD84B20A09808D0 1 D2 
A004AD73B2CD73B2F0FB88D0F5CE84B2D09E60O <JF> 
2990 D AT A*. A90 1 8D90B2 A900B5F885F6BD76B2 A9 
B385F7A9BA85F920ECB 1 AD7EB2 1 869048D00D06 < ZQ > 
2995 DATA-.8D0 1 D0A99A85F7A900B5F6A99 A85F9 
A9E085F8A9068D92B2A9 1 08D94B2AD9 1 B2 1 869K <DV> 
3000 D AT A-.04 A A A000B 1 F69D00B4B 1 F89D00B5E8 
C8CE94B2D0EFA5F6 1 869 1 0B5F6A5F7690085F7D <0H> 
3005 D AT A*. A5F8 1 869 1 085F8 A5F9690085F9 A204 
AD73B28D93B2CD73B2F0FBC AD0F2CE92B2D0B2 Y <NX> 
30 1 0 D AT A*. A90 1 8D09D28D08D28D95B2 A9648D00 
D2A9658D02D2A9078D92B2 A90F8DC0028DC 1021 < IY> 
30 1 5 DAT A*. A9 1 08D94B2AD9 1 B2 1 86904 AAA000B 1 
F69D00B4B 1 F89D00B5E8C8CE94B2D0EFA5F6 1 8N < U J > 
3020 DATA*.69 1 085F6 A5F76900B5F7 A5F8 1 869 1 0 
85F8A5F9690085F9A204A90 1 8D09D28D08D2A9T < VE > 
3025 DATA*.648D00D2A9658D02D2EE95B2EE95B2 
AD95B238A91 0ED95B26 A09008D0 1 D28D03D2 ADO < HR > 
3030 DATA*73B28D93B2CD73B2F0FBCAD0F2CE92 
B2D08860A900 A00999FFD 1 88D0F A60 A000B959D <TS> 
3035 DATA*.B23BE5F2B95FB2E5F329F0C9F0D004 
C84C50ADB965B28DB 1 B2B96BB28DB2B2A90 18DZ <FZ> 
3040 DAT A*.83B22043 AD A90 1 8D84B2A9008D7DB2 
AD9AB2C90 1 D0062020AC4C93AD207BABA2 1 0A0A < SX > 




3045 DATA*.0FA9 1 085FAA9A285FBA90085FEA9A2 
85FFB 1 F A9 1 FE88C AD0F82043ADA9008D90B2CEC < TX > 
3050 DATA*. 1 F80AD 1 F80C950D00DA205AD73B2CD 
73B2F0FB4C 1 9 A54C29 A7A000 AE A3B2B 1 E29 1 E4W <HA> 
3055 DATA*.88D0F9E6E3E6E5CA3002D0F060AD00 
A285FC AD0 1 A285FD AD02A285EEAD03 A285EF20K < TH > 
3060 DATA*.EDA9AD04A285FCAD05A285FDAD06A2 
85EE AD07 A285EF20EDA9AD08A285FC AD09A285D <PD> 
3065 DATA*.FDAD0AA285EEAD0BA285EF20EDA9AD 
0CA285FCAD0DA285FDAD0EA285EEAD0FA285EFM <FI> 
3070 DATA*.20EDA9AD9 1 B2 1 86905 A8B900B3293F 
9900B3C8B900B3293F9900B3C8B900B309C099E <SP> 
3075 DATA*.00B3C8B900B309C09900B3C8B900B3 
09C09900B3C8B900B309C09900B3C8B900B309U <FJ> 
3080 DATA*.C09900B3C8B900B309C09900B3C8B9 
00B3293F9900B3C8B900B3293F9900B3605848P < UH > 
3085 DATA*.8A489848A5EC48A5ED48AD0BD4C928 
30034CFDAE8D0AD4A9088D 1 6D0A9768D 1 7D0A9M <JL> 
3090 DAT A*.0C8D 1 8D0EE73B2A9A48D 1 9D0 A92 1 8D 
6F02854DAD9CB2C900D00320D7AAAD0AD28D85Y < IV > 
3095 DAT A*.B2EE74B2 AD83B2C90 1 D005A900BD74 
B24C00B0AD90B2C90 1 D0034CF8B0AD7DB2C90 1 A <AP> 
3100 DATA*.D01 2 AD03D08D8FB2 AD08D00D09D08D 
9BB28D 1 ED0AD74B2290 1 C90 1 D0034CF8B0AD84N <£<?> 
3105 DAT A*.B2C90 1 F034C9 1 0F030AD78022908C9 
08F003EE7EB2 AD7802290 1 C90 1 F003CE9 1 B2ADB < JI > 
3110 DATA*78022902C902F003EE9 1 B2AD780229 
04C904F003CE7EB2AD91B28D02A28D06A28D0AD <JL> 
3115 DAT A*. A28D0EA2EE82B2 AD82B2290 1 C90 1 D0 
1 EA99E85FFA96885FEA9 1 08D86B220D6A9A978U < CP > 
3 1 20 DATA*.85FE20D6A9A98885FE20D6A9EE88B2 
ADB8B2C904D0034CC0AFA99E85FFA96085FEA9N < KV > 
3 1 25 DATA*.088D86B220D6A94CC5AFA9008D88B2 
CE72B2AD72B229078D05D48D72B2C907F0034CS < VI > 
3 1 30 DATA*.70B0A9038D7 1 B2A98285FF85FBA980 
85FE A96085FA20D2B 1 CE77B2D07B200CB 1 A903L < QS > 
3135 DATA*.8D77B24CFBB0AD7DB2C90 1 D069ADB0 
B2 1 0 1 9AD96B28D04D0 1 869028D05D0A ACA8 A8DE <0R> 
3140 D AT A*.96B2C9BCD0324C3BB0 AD96B2BD04D0 
38E9028D05D0AAE88A8D96B2C940D0 1 9A9008DU <0K> 
3 1 45 DATA*.05D28D97B2AC98B2A206B900B329C0 
9900B3C8C AD0F4 AD73B2290 1 0D83B2C900F0 1 0E < EI > 
3150 DATA*.EE8 1 B2AD8 1 B2C903F0034C73B04C04 
B 1 4CF8B020E7AD 1 8 AD00A269 1 88D00 A2 AD0 1 A2D < UZ > 
3 1 55 DATA*.69008D0 1 A2 1 8AD04 A269 1 88D04A2 AD 
05A269008D05A2 1 8AD08A269 1 88D08A2AD09A2B <ZI> 
3 1 60 DATA*69008D09A2 1 8AD0CA269 1 88D0CA2AD 
0D A269008D0D A2EE84B2AD84B2C9 1 1 3034A90 1 Y <PE> 
3 1 65 D AT A*.8D84B2F8 1 8AD89B2690 1 8D89B2AD8A 
B269008D8AB2D8A2 1 0A00FA9 1 08SF AA9A285FBP <LJ> 
3 1 70 D AT A*. A900B5FE A9 A2B5FFB 1 FA9 1 FE88CAD0 
F86885ED6885EC68A868A A6840A9008D8 1 B24CV <FK> 
3 1 75 D AT A*.F8B0EE8EB2AD8EB2290 1 C90 1 D00620 
66AA4C2 1 B 1 2079 A A A98085F 1 A000B 1 F28D78B20 <TH> 
3180 DAT A*.290 1 C90 1 D007 A9A285F02006B26E78 
B2 AD78B2290 1 C90 1 D007 A9A685F02006B26E78F <KF> 
3185 DAT A*.B2 AD78B2290 1 C90 1 D007A9 AAB5F020 
06B26E78B2AD78B2290 1 C90 1 D007A9AE85F020B <EK> 
3 1 90 DATA*.06B26E78B2 AD7BB2290 1 C90 1 D007 A9 
B285F02006B26E78B2AD78B2290 1 C90 1 D007A9F < FE > 
3 1 95 D AT A*B685F02006B26E78B2 AD78B2290 1 C9 
0 1 D007 A9BA85F02006B2C6F2D002C6F3A5F2CDV <CP> 
3200 DATA*79B2D0 1 9 A5F3CD7 AB2D0 1 2A90 1 8D83 
B28D99B2 AD7BB285F2AD7CB285F360 A0FFAE7 IL <FC> 
3205 D ATA*.B2B 1 F A9 1 FEB8D0F9B 1 FA9 1 FEC6FBC6 
FFC AD0EE A0FF60 A000 AD76B29 1 F6E6F6D002E6F <BQ> 
3210 DATA*.F7A5FBC5F6D0EF A5F7C5F9D0E960 A9 
40 A0009 1 F0E6F0A94 191 F0 A942E6F09 1 F0A943O <HZ> 
32 1 5 DATA*.E6F09 1 F0A5F0 1 869 1 D85F0A9449 1 F0 
E6F0 A9459 1 F0 A946E6F09 1 F0A947E6F09 1 F0A5B < 0 J > 
3220 D AT A*F0 1 869 1 D85F0 A9489 1 F0E6F0A9499 1 
F0A94 AE6F09 1 F0 A94BE6F09 1 F06080C0FE40B0L <TF> 
3225 D AT A*8 1 A0A0A0A 1A1A1 80C0FE408080 A0A0 
A0A1A1A1 000000000000000000000000000000M <XD> 
3230 DATA*.000000000000000000000000000000 
0 1 000000000000000000000000000000000000H < XY > 
3235 DAT A*.00000000020 A0D0 A020 1 050E050 1 00 
00000000E002E10200A5.F <LF> 

Der letzte Sprung von »Jump« (Schluß) 
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